Delphi Stringübergabe dauert sehr lange wer kann helfen ?

Thema durchsuchen

Ansicht

Themen-Optionen

Stringübergabe dauert sehr lange wer kann helfen ?

Ein Thema von dorisdoloris · begonnen am 14. Dez 2005 · letzter Beitrag vom 14. Dez 2005

Vorheriger Beitrag

Nächster Beitrag

dorisdoloris

Registriert seit: 9. Nov 2005
44 Beiträge

#11

Re: Stringübergabe dauert sehr lange wer kann helfen ?

14. Dez 2005, 16:40

Ich habe es jetzt mal mit TStringList getestet wird aber noch langsamer

zusammenfalten · markieren

Delphi-Quellcode:

			
procedure TForm1.Button1Click(Sender: TObject);

var

i: Integer;

slNew: TSringList;

begin

slNew := TStringList.Create;

for i:= 0 to ListBox1.Items.Count -1 do

begin

slNew.Text := slNew.Text + ListBox1.Items.Strings[i];

If i mod 100 = 0 Then ProgressBar1.StepBy(100); // aktuelle Position

end; // schleife ende