Событие по изменению Edit.Text, в том случае если значение отличается от бывшего там ранее текста

[Alex711]

Здравствуйте, хочу сделать чтобы выполнялась определённая процедура при изменении значения 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 даже если его значение обновилось на тоже, что и было ранее. Помогите пожалуйста.

[Alar]

Сообщение от Alex711

даже если его значение обновилось на тоже, что и было ранее.

откуда вы это знаете не вижу даже закомментированных
showmessage для откладки

if (ip2 <> ip1) and (Edit1.Text <> ' ')

слишком сложная констрункция для того кто не понимает что происходит в его программе

можете использовать

if ip2 = ip1 then
if Edit1.Text = ' ' then

?

[Alex711]

Даже если тоже самое вешаю на Timer:

 ip1 := Edit1.Text;
  if ip2 <> ip1 then MyProcedure;
  ip2 := ip1;

всё равно MyProcedure выполняется, пытался выводить ip1 и ip2 в Edit'ы для наглядности, они имеют одинаковые значения, но условие всё равно выполняется, почему?

[Alar]

delphi сравнение текста
http://delphibasics.ru/AnsiCompareStr.php

[evg_m]

пытался выводить ip1 и ip2 в Edit'ы для наглядности,

пробелы в этой "наглядности" не видны.
А они наверняка есть! и их разное количество.
вот строки и не равны.

пробел это такой же равноправный символ строки и он участвует в сравнениях строк.

a:='раз два'; //здесь один пробел
b:='раз  два'; // а здесь два пробела
r:=(a=b);   r=FALSE !!!

[Alex711]

Разобрался, проблема была в другом, программа перезапускалась при определённых условиях и естественно переменная ip2 обнулялась, сделал запись переменной в базу данных с которой и так взаимодействует данная программа и всё наладилось. Всем спасибо огромное за помощь!