Код:
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 | var
Form1: TForm1;
<b>flag:boolean;</b>
implementation
{$R *.dfm}
procedure TForm1.Memo1Change(Sender: TObject);
begin
if (pos('yo',memo1.Text)>0) and (not flag)then begin showmessage('!'); flag:=not flag; end;
end;
procedure TForm1.FormCreate(Sender: TObject);
begin
flag:=false;
end;
|
p.s. код было лень форматировать |