Funktion abbrechen

[edosoft]

ahso... lol

das machst du z.b. so:
du definierst ne globale variable namens "bAbort" mit typ boolean.

dann schreibst du:

Delphi-Quellcode:

procedure rechne();
var
I: Integer;
begin
bAbort := false;
I := 0; //I ist nur zur demonstration da, wird nicht benötigt

while 1 = 1 do //endlosschlaufe
begin
//machwas
Application.ProcessMessages; //wichtig, sonst hängt sich das GUI total auf, d.h. man kann auch nirgendwo draufklicken.
if bAbort then Break;
Inc(I);
end;
showmessage('Sie haben '+inttostr(i)+' durchgänge gewartet bis Sie auf abbrechen geklickt haben.');
end;

/edit: in dem speziellen fall gehts natürlich auch so:

Delphi-Quellcode:

while not bAbort do
[..]

dann kannst du das if bAbort then Break; weglassen.