小问题。

Question

在一个空窗体打开后，输入字符串‘abcddddddefefeww'，后程序关闭，如何实现？

Answer 1

procedure TForm1.Edit1Change(Sender: TObject);
begin
if edit1.Text=‘abcddddddefefeww' then
 close;
end;v如何是在EDIT里输入的话就在ONCHANG事件里写入

Answer 2

var
  Form1: TForm1;
str:string;//全局变量procedure TForm1.FormKeyPress(Sender: TObject; var Key: Char);
begin
str:=str+key;
showmessage(str);
if strcomp(pchar(str),'ddd')=0 then//‘中写字符串’
 close;
end;
OK了吧

Answer 3

谢谢，好像下面的方法更好些
procedure TForm1.FormKeyPress(Sender: TObject; var Key: Char);
begin
str:=str+key;
if pos('ddd',pchar(str))>0 then
 close;
end;