Hi,

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

MfG

so vll

zusammenfalten · markieren

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

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:

zusammenfalten · markieren

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.