Здравствуйте, хочу сделать чтобы выполнялась определённая процедура при изменении значения Edit.Text, но только в том случае если значение отличается от бывшего там ранее текста, пробую так:
Код:
procedure TForm1.Edit1Change(Sender: TObject);
begin
ip1 := Edit1.Text;
if (ip2 <> ip1) and (Edit1.Text <> ' ') then MyProcedure;
ip2 := ip1;
end;
Не получается, MyProcedure выполняется при каждом обновлении Edit1.Text даже если его значение обновилось на тоже, что и было ранее. Помогите пожалуйста.