Цитата:
|
Сообщение от YVitaliy
В событии Edit#.OnChange проверяй текст в поле:
Код:
procedure TForm1.Edit1Change(Sender: TObject);
begin
if Edit1.Text='VISIT' then showmessage('VISIT');
end; |
А разве можно вот так прям всю строку сравнивать?
Я бы посоветовал (на всякий случай) функцию
Код:
AnsiCompareText(const S1, S2: String): Integer
Сравнивает две строки S1 и S2 без учёта регистра символов. Возвращает значение <0 если S1<S2, 0 если S1=S2, >0 если S1>S2.