daha hızlı replace

[sr1111]

asagidaki gibi kod ile a.txt içinde olan 10.000 kadar maddeyi
memo3 deki text de olanlari degisitirme yapiyorum. fakat bu islem yavas oluyor.
daha da hizlandirmam icin nasil bir seyler yapabilirim.
filestream memorystream veya replace fonksiyonu
delphi 2009 kullaniyorum.

begin
AStringList := TStringList.Create;
with AStringList do
begin
AStringList.LoadFromFile(extractfilepath(application.ExeName)+'a.txt');
begin
Memo3.Lines.Text := stringReplace(memo3.Lines.Text, ..............);
end;//for
AStringList.free;
end;

[sr1111]

asagidaki gibi kod ile a.txt içinde olan 10.000 kadar maddeyi
memo3 deki text de olanlari degisitirme yapiyorum. fakat bu islem yavas oluyor.
daha da hizlandirmam icin nasil bir seyler yapabilirim.
filestream memorystream veya replace fonksiyonu
delphi 2009 kullaniyorum. yardimci olursaniz sevinirm.

begin
AStringList := TStringList.Create;
with AStringList do
begin
AStringList.LoadFromFile(extractfilepath(application.ExeName)+'a.txt');
begin
Memo3.Lines.Text := stringReplace(memo3.Lines.Text, ..............);
end;//for
AStringList.free;
end;