Memo hängt sich bei vielen Daten auf

[mkinzler]

Delphi-Quellcode:

while not <DS>.Eof do
begin
    <MachWas>
    inc(i);
    if i div 10 = 0 then  //Alle 10 DS
        Application.ProcessMessages; //Befehl sorgt dafür, das die Messages verarbeitet werden.
    <DS>.Next;
end;