Delphi 7 Как ускорить замену текста в MEMO?

[Pascalius]

Здравствуйте

? имеется MEMO в который грузится TXT файл в котором имеется 1000 строк (точно не знаю сколько, примерно наверное так и есть), так вот

так же имеется 2 Edit-а
EDIT1 - Указываем что заменить (если будет понятнее, то искать что менять)
EDIT1 - Указываем на что заменить найденный текст

файл имеет такое содержание

TEXT TEXT
TEXT TEXT
TEXT TEXT и т.д

так вот мне надо изменить этот текст в вид

TEXT_TEXT
TEXT_TEXT
TEXT_TEXT и т.д

КОДЫ КНОПОК

ОТКРЫТЬ ФАЙЛ Text.txt из папки в которой находится программа

memo1.Clear;//очистка MEMO
memo1.Lines.LoadFromFile((ExtractFi lePath(Application.ExeName) + 'Text.txt'));//Загрузить файл в МЕМО

СОХРАНИТЬ ФАЙЛ Text.txt в папку в которой находится программа

memo1.Lines.SaveToFile((ExtractFile Path(Application.ExeName) + 'Text.txt'));

КОД ЗАМЕНЫ ТЕКСТА

Var
S: String;
i: Integer;
begin
For i:= 0 To Memo1.Lines.Count - 1 Do
begin
S:= StringReplace(Memo1.Lines.Strings[i], Edit1.Text, Edit2.Text, [rfReplaceAll, rfIgnoreCase]);
if S <> Memo1.Lines.Strings[i] Then;
Memo1.Lines.Strings[i]:=S;
end;
begin
ShowMessage('Замена произведена');
end;

MEMO.zip - ПРОЕКТ

ТЕПЕРЬ ?

КАК УСКОРИТЬ ЗАМЕНУ В МЕМО??? а то происходит я так понимаю построчно чтоли и замена происходит ОЧЕНЬ ДОЛГО

если эту же самую операцию произвести в простом блокноте то там это занимает 1 сек.

заранее спасибо (пишу подробно для тех кто так же как и я изучает DELPHI, но который только сейчас открыл её в первый раз!)

[evg_m]

1 вар.

memo.text:=stringreplace(memo.text, edit1.text, edit2.text, [rfreplaceall]);

2 вар.

memo.lines.beginupdate;
...// код по замене
memo.lines.endupdate;

[Pascalius]

Спасибо!