Мастера DELPHI (документация, исходники, скачать)

Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

« предыдущая ветвь | форум | следующая ветвь »

сравнение TMemo.Lines [D7, Win2k]

Lenor © (2004-07-19 16:25:00)
То ли я сегодня не выспалась, то ли что, но не могу сравнить 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;

Lenor (2004-07-19 16:43:00) [1]
М-да-а, наверное, действительно не выспалась. Ошибка была совершенно в другом месте, я таймеру enabled чуть попозже присваивала. Всем спасибо, в т.ч. и за обвинения в тупости :)

Ega23 (2004-07-19 16:34:00) [2]
Reindeer Moss Eater © (19.07.04 16:32) [6]

Тогда уж так:
Timer1.Enabled:=(Memo1.Lines.Text = Memo2.Lines.Text);

:о)

Reindeer Moss Eater (2004-07-19 16:32:00) [3]
MyBooleanVar := Memo1.Lines.Text = Memo2.Lines.Text;

Ega23 (2004-07-19 16:30:00) [4]
А вообще в вопросе престранный такой код нарисован.
Загадочный.

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

Ega23 (2004-07-19 16:29:00) [5]
Может, имеет смысл немного переделать?

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:00) [6]
А вообще в вопросе престранный такой код нарисован.
Загадочный.

clickmaker (2004-07-19 16:28:00) [7]
может текст в мемо не обновляется после изменения файла. Мало кода, полностью приведи

Reindeer Moss Eater (2004-07-19 16:27:00) [8]
мне опять объявляется, что тексты идентичны.

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

Наверх

	« предыдущая ветвь \| форум \| следующая ветвь »