Анализирам тук едно забавяне на един компонент (tZQuery, от Zeos) и стигнах до нещо интересно в tStringList, което в момента изяснявам, но ще го постна за забавление :)

{}procedure TForm1.Button1Click(Sender: TObject);

    begin

      RichEdit1.Lines.LoadFromFile('D:\Data\MyProj\DPCS_RetrF8\ProbStrList\p.txt');

      RichEdit2.Lines.Text := StringReplace(RichEdit1.Lines.Text,#13#10,#1#2,[rfReplaceAll]);

      RichEdit3.Lines.Text := StringReplace(RichEdit2.Lines.Text,#1#2,#13#10,[rfReplaceAll]);

    end;

Съдържаниет е скрито
Влезте за да го видите