Textausgabe in Memo sehr langsam

[Aphton]

Probiers mal so:

Quellcode

Delphi-Quellcode:

{...}

var
  i: Integer;
  Primzahlen: Int64Arr;
  PrimzahlenStr: String;

{...}

Primzahlen := SieveOfErastothenes(1, 4000000);
for i := 0 to High(Primzahlen) do
  PrimzahlenStr := PrimzahlenStr + IntToStr(Primzahlen[i]) + #13#10;
Ergebniss.Lines.BeginUpdate;
Ergebniss.Lines.Text := PrimzahlenStr;
Ergebniss.Lines.EndUpdate;