сравнение TMemo.Lines

← →
Lenor (2004-07-19 16:25) [0]

То ли я сегодня не выспалась, то ли что, но не могу сравнить 2 tmemo. В один компонент загружается текст из файла, в другой текст введен изначально. Вначале текст одинаковый, но потом, после изменения текста в файле, мне опять объявляется, что тексты идентичны.

for i:=1 to memo1.lines.count do if (memo1.lines[i]=memo2.lines[i]) then timer1.enabled:=true else timer1.enabled:=false;

← →
Reindeer Moss Eater © (2004-07-19 16:27) [1]

мне опять объявляется, что тексты идентичны.

Не думаю, что сообщается именно это.

← →
clickmaker © (2004-07-19 16:28) [2]

может текст в мемо не обновляется после изменения файла. Мало кода, полностью приведи

← →
Ega23 © (2004-07-19 16:29) [3]

Может, имеет смысл немного переделать?

var
fl:Boolean;

begin
fl:=True;
for i:=1 to memo1.lines.count do
if (memo1.lines[i]=memo2.lines[i])
then
Continue;
else
begin
fl:=False;
Break;
end;
Timer1.Enabled:=fl;

← →
Reindeer Moss Eater © (2004-07-19 16:29) [4]

А вообще в вопросе престранный такой код нарисован.
Загадочный.

← →
Ega23 © (2004-07-19 16:30) [5]

А вообще в вопросе престранный такой код нарисован.
Загадочный.

Мигалка. "Таймер работает/Таймер НЕ рпботает"

MyBooleanVar := Memo1.Lines.Text = Memo2.Lines.Text;

← →
Lenor (2004-07-19 16:43) [8]

М-да-а, наверное, действительно не выспалась. Ошибка была совершенно в другом месте, я таймеру enabled чуть попозже присваивала. Всем спасибо, в т.ч. и за обвинения в тупости :)

сравнение TMemo.Lines Найти похожие ветки