Memo hängt sich bei vielen Daten auf

[Hansi]

Hallo,

Die Ergebnisse meiner DB Auswertung gebe ich über Memo1.Lines.Add usw aus. Leider hängt sich mein kleines Programm immer ziemlich schnell auf sodass ich nicht mehr sehe was er im Memo hinzufügt. Erst wenn er fertig ist sehe ich alle Daten im Memo.

Kann ich das irgendwie ändern?

Gruss...

[mkinzler]

Lasse hin und wieder die Oberfläche neu zeichnen (

Delphi-Quellcode:

Application.ProcessMessages;

)

[Hansi]

meinst du mit einem Art Timer?

Oder wie soll ich das machen?

[mkinzler]

Nein, z.B. alle 100 DS oder so

[Hansi]

kannst Du mir bitte einen kleinen Tip geben wie ich die Oberfläche neu zeichne?

Wo und wie gebe ich das Application... an?

[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;

[Hansi]

Super danke; Jetzt funktionierts

[himitsu]

Schneller geht es aber, wenn man noch mit BeginUpdate arbeitet.

Ist zwar etwas aufwändiger, aber es lohnt sich.

Delphi-Quellcode:

Memo.Lines.BeginUpdate;
try
  while not <DS>.Eof do
  begin
      ...
      Memo.Lines.Add(...);
      ...     
      inc(i);
      if i and 15 = 0 then
      begin
        Memo.Lines.EndUpdate;
        try
          Application.ProcessMessages;
        finally
          Memo.Lines.BeginUpdate;
        end;
      end;
      <DS>.Next;
  end;
finally
  Memo.Lines.EndUpdate;
end;

Wobei ich es seitabhängiger lieber hab, da man ja nie weiß, wie schnell der PC ist und wie lange die ganze Verarbeitung dauert.

Delphi-Quellcode:

C := GetTickCount;
Memo.Lines.BeginUpdate;
try
  while not <DS>.Eof do
  begin
      ...
      Memo.Lines.Add(...);
      ...     
      if GetTickCount - C > 150 then  // alle 150 ms
      begin
        Memo.Lines.EndUpdate;
        try
          Application.ProcessMessages;
        finally
          Memo.Lines.BeginUpdate;
        end;
        C := GetTickCount;
      end;
      <DS>.Next;
  end;
finally
  Memo.Lines.EndUpdate;
end;

[Astat]

Hallo Hansi, bei großen Datenmengen kannst du dies als Turbo verwenden.

Delphi-Quellcode:

 Memo1.Lines.BeginUpdate;
  //-- dazwischen mach was..
 Memo1.Lines.EndUpdate;

Edit: zu spät, oder zuviel Bier?? :drunken:

lg. Astat

[Hansi]

Also ich benutze die Word Rechtschreibungsprüfung!

Das liegt aber eher am Schnaps! :)

Gruss an die Runde!