Textausgabe in Memo sehr langsam

[samso]

TMemo ist nicht besonders schnell, aber Du wirst vermutlich ein bessers Ergebniss bekommen, wenn Du mit BeginUpdate und EndUpdate das Zeichnen der Einzelzeilen vermeidest.

Delphi-Quellcode:

 
  Ergebniss.Lines.BeginUpdate;
  try
    Ergebniss.Lines.Clear;
    i := 0;
    while i < Length(Primzahlen)
    do begin
       Ergebniss.Lines.Add(IntToStr(Primzahlen[i]));
       i := i + 1;
    end;
  finally
    Ergebniss.Lines.EndUpdate;
  end;

N.B. Da TMemo auch nicht unendlich viel Text verwalten kann (die Grenze lag, glaube ich bei 32KByte (?)) wirst Du eventuell nicht alle Primzahlen sehen können.