[Glob]

Нужно заменить текст в memo1. Код работает но очень медленно, а мемо содержит 15 тыс строк.
Сам код вот:

PHP код:

k:=0;
while k<=Memo1.Lines.Count do
begin
Text := StringReplace(Memo1.Lines[k], 'null', '''null''', [rfReplaceAll, rfIgnoreCase]);
Memo1.Lines[k] := Text;
k:=k+1;
Edit1.Text:= 'Заменяю текст в строке '+ IntToStr(k) ;
Application.ProcessMessages; 


Вопрос: можно ли как-то ускорить замену?

[Pyro]

можно без строк:
Memo1.Text := StringReplace(Memo1.Text, 'null', '''null''', [rfReplaceAll, rfIgnoreCase]);

[Glob]

Знаю что можно, но скорости это не прибавляет

[FlyInDream]

А вот если так:

Код:

 f:= TStringList.Create();
 f.Text:= mmo1.Text;
 mmo1.Text := StringReplace(f.Text, 'null', '''null''', [rfReplaceAll, rfIgnoreCase]);

[lmikle]

Действительно, StringReplace на больших объемах работает очень медленно. Лучше напиши руками.

[NIch]

Обрабатывай текст не в мемо, а в памяти. После обработки выводи. Уменьшит наглядность, но должно помочь в скорости.

[icWasya]

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

А вот если так:

Код:

 f:= TStringList.Create();
 f.Text:= mmo1.Text;
 mmo1.Text := StringReplace(f.Text, 'null', '''null''', [rfReplaceAll, rfIgnoreCase]);

а лучше без стринглиста

Код:

 S:String;
 S:= mmo1.Text;
 mmo1.Text := StringReplace(S, 'null', '''null''', [rfReplaceAll, rfIgnoreCase]);