So, es hat funktioniert...
Hier ist mal der Code:
Delphi-Quellcode:
TMyThread = class(TThread)
protected
procedure Execute; override;
procedure Display;
end;
var
MyThread : TMyThread;
procedure TMyThread.Display;
begin
// hier Ausgaben eintragen, Memos, Edits, usw.
end;
procedure TMyThread.Execute;
begin
while not terminated do
begin
// hier Anweisungen (bei mir halt Daten von Steuerung lesen)
Synchronize(Display);
sleep(xx); // hier schläft der Thread, bevor er weiterläuft
end;
end;
procedure TForm2.Button1Click(Sender: TObject);
begin
MyThread := TMyThread.Create(false);
MyThread.FreeOnTerminate := true;
end;
Nochmals danke euch allen!!!
@ChrisE:
Auf die Schnittstelle warten funktioniert bei der Anwendung nicht so richtig, daher habe ich den Weg gewählt, dass die Daten entsprechend dem Intervall angefodert und ausgelesen werden. Um den Puffer werde ich mich jetzt kümmern...
Ist auch das erste Mal, dass ich einen Thread benutze, muss mich da jetzt sowieso noch tiefer einarbeiten.