Thread beenden durch Button clicked

Delphi-Quellcode:

			procedure TForm1.Button1Click(Sender: TObject);

begin

 DeinThreadObject := TDeinThreadObject.Create; // Thread erzeugen (wie auch immer du das machst, falls anders)

end;

markieren

Delphi-Quellcode:

			procedure TMeasThread.Execute;

begin

 while not Terminated do // solange der Thread nicht erminiert wurde, führe die Schleife aus

  begin 

   Form1.Measure; {Messung}

   Synchronize(WriteToStringgrid); {übertragen der Messwerte};

  end;

end;

markieren

Delphi-Quellcode:

			procedure TForm1.Button2Click(Sender: TObject);

begin

 DeinThreadObject.Free; // Thread "terminieren"

end;

Thread beenden durch Button clicked

AW: Thread beenden durch Button clicked

Stichworte

Forumregeln