如何判断一个按键序列

I

import

Unregistered / Unconfirmed
GUEST, unregistred user!
如何判断用户输入的一个序列是不是指一个指定的序列?例如如何监测用户输入了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:=Charbuf[i+1];
CharBuf[High(Buf)]:=Key;
if CharBuf='kingron' then ShowMessage('OK!');
end;
 

Similar threads

S
回复
0
查看
1K
SUNSTONE的Delphi笔记
S
S
回复
0
查看
930
SUNSTONE的Delphi笔记
S
S
回复
0
查看
3K
SUNSTONE的Delphi笔记
S
顶部