如何判断一个按键序列

如何判断用户输入的一个序列是不是指一个指定的序列？例如如何监测用户输入了kingron这个序列？

可以采用下面的方法：

定义一个数组：

var

Buf:array [1..7] of char;

然后在窗体的OnKeyPress中添加如下代码即可：

procedure TForm1.FormKeyPress(Sender: TObject; var Key: Char);

var

i:integer;

begin

for i:=Low(Buf) to High(buf)-1 do

CharBuf[i]:=Charbuf[i+1];

CharBuf[High(Buf)]:=Key;

if CharBuf='kingron' then ShowMessage('OK!');

end;