Funktion von User abbrechen lassen

[nahpets]

Hallo,

was machst Du da?

Du schreibst doch, dass Du eine laufende Funktion über einen Button abbrechen lassen willst.
Beim Klick auf den Button rufst Du die Funktion aber ein zweites Mal auf, wo sie natürlich sofort abgebrochen wird, die bereits laufende Funktion bekommt davon natürlich nichts mit.

Du brauchst eine "globale" Variabel abort, die Du im Buttonklickereignis auf True setzt und dort, wo Dein Kommentar steht "//--mach noch mehr " musst Du eine geeignete Stelle suchen, an der Du aus der Funktion, wenn abort = true ist, mit Exit aussteigen kannst.
Z. B. Sowas in der Form:

Delphi-Quellcode:

while not Table.Eof do begin
  // hier lesen oder schreiben wir.
  Table.Next;
  If abort then exit;
  Application.ProcessMessages;
end;

PS: TurboPascal und Taaktaak waren schneller als ich