Schleife zum Wiederholen eines Sources

[MrSpock]

Hallo davidwittesz,

die Online Hilfe erklärt das Prinzip recht gut.

Du leitest eine neue Klasse von TThread ab. Das wichtigste ist die Execute Methode, die du überschreibst:

Delphi-Quellcode:

TMyThread = class(TThread)
    private
      { private-Deklarationen }
      protected
    procedure Execute; override;
   end;

...
procedure TMyThread.Execute;
begin
  while Not Terminated do
  { Deinen Code einfügen, der wiederholt werden soll }
 end;

Das Hauptprogramm terminiert (Arnie lässt grüßen ) den Thread auf Knopfdruck:

Delphi-Quellcode:

procedure THauptForm.Button1Click(Sender: TObject);
begin
  MyThread.Terminate;
end;