Warten bis Prozedur in Thread ausgeführt wurde

[marabu]

Hallo Sascha,

deine Idee mit der Variable ist doch nicht schlecht - es kommt darauf an, wie du sie verwendest:

Delphi-Quellcode:

type
  TDemoThread = class(TThread)
  private
    Suspending: Boolean;
  protected
    procedure Execute; override;
    procedure Start;
    procedure Stop;
  end;

implementation

procedure TDemoThread.Execute;
begin
  while not Terminated do
  begin
    // ...
    Suspended := Suspending;
  end;
end;

procedure TDemoThread.Start;
begin
  Suspending := False;
end;

procedure TDemoThread.Stop;
begin
  Suspending := True;
end;

Grüße vom marabu