"Anhalten" einer Prozedur mithilfe Button

[albert1985]

Hi,

wie kann man eine zuvor über einen Button gestartete Prozedur mit einem anderen Button wieder beenden ?

MfG

[Thorben_K]

so vll

Delphi-Quellcode:

var
  weiter : Boolean;

procedure Test;
var 
  i : LongInt;
begin
  while weiter do
  begin
    //was der halt machen soll
  end;

end;

//und mit dem anderem button stellst du halt "weiter" auf false

so geht es denke ich

[Jelly]

Das geht so nicht, weil die Applikation keine Messages empfängt während die Prozedur noch läuft. Der Buttonklick wird also erst später abgearbeitet... Wenn schon so, dann etwas anpassen:

Delphi-Quellcode:

var 
  weiter : Boolean; 

procedure Test; 
var 
  i : LongInt; 
begin 
  while weiter do 
  begin 
    //was der halt machen soll 
    application.processmessages ;     // <-- Dies ist eben wichtig
  end; 

end; 

procedure TForm1.Button1Click (Sender : TObject);
begin
     Weiter := false ;
end ;

Will mans richtig machen, so kommt man um Threads nicht herum. Dafür mal die Forumsuche benutzen.