Einzelnen Beitrag anzeigen

SirTwist

Registriert seit: 28. Sep 2006
198 Beiträge
 
Delphi XE Professional
 
#10

Re: function/procedure pausieren verhindern

  Alt 11. Jun 2007, 17:16
Zitat von calculon:
Heißt das, wenn ich BeginUpdate und EndUpdate benutze werden alle Prozeduren, die die Listboxen beschreiben in Lichtgeschwindigkeit ausgeführt?
Ja genau.

Ich habs grad mal ausgetestet, man kommt ca. auf den Faktor 10, was das Hinzufügen der Listbox-Einträge angeht.

Wenn Du wirklich auf Benutzeraktionen reagieren willst, dann brauchst du das aber nicht bei jedem Schleifendurchlauf zu machen:
Delphi-Quellcode:
if (i mod 1000) = 0 then begin
  Application.ProcessMessages;
  if BtnCancel.Tag = 1 then begin // Vorrausgesetzt, dein Cancel-Button setzt das Tag auf "1" wenn gedrückt.
    ListBox.Items.EndUpdate;
    exit; // Schleife abbrechen
  end;
end;
  Mit Zitat antworten Zitat