markieren

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;

Zitat von Jim Carrey:

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;

Eventuell sollte in die Schleife noch ein Sleep(1) rein damit der Thread die CPU nicht zu 100% auslastet.

Und wie Stahli schon schreibt, solltest du aus dem Thread nicht auf deine Form(klasse) zugreifen. Methoden funktionieren zwar, aber jenachdem was darin mit der GUI passiert, könnte es unschöne Effekte geben. Von daher lager die am Besten auch in den Thread aus. Nur deshalb machst du diesen ja.

Verständnisfrage: wie soll man dann von innerhalb des Threads das StringGrid füllen?

Mit einer ProgressBar würde ich es vielleicht so machen...
- innerhalb des Threads wird eine Variable gesetzt welche auf dem Hauptformular in einem Timer abgefragt wird und die ProgressBar setzt.
Oder so ganz und gar nicht?
Aktuell benutze ich statt des Timers einen zweiten Thread der nur dafür da ist die ProgressBar zu bedienen, insofern sich ein bestimmter Wert geändert hat.

Aber mit einem StringGrid ist das ja nicht so leicht machbar.

Zitat von Jim Carrey:

Verständnisfrage: wie soll man dann von innerhalb des Threads das StringGrid füllen?

Mit einer ProgressBar würde ich es vielleicht so machen...
- innerhalb des Threads wird eine Variable gesetzt welche auf dem Hauptformular in einem Timer abgefragt wird und die ProgressBar setzt.
Oder so ganz und gar nicht?
Aktuell benutze ich statt des Timers einen zweiten Thread der nur dafür da ist die ProgressBar zu bedienen, insofern sich ein bestimmter Wert geändert hat.

Aber mit einem StringGrid ist das ja nicht so leicht machbar.

Andere Frage: Wieso sollte das nicht funktionieren?

Bei einer Progessbar setzt du die Position auf einen Wert oder rufst Step() auf. Bei einem StringGrid müsstest du nur StringGrid.Cells[0, 0] := 'String'; ausführen. Ist ja im Prinzip das Gleiche.

Nur macht man es nicht. Ich würde aus dem Thread ein Event mit Synchronize feuern, das von der MainForm abonniert wurde, und dann das StringGrid updaten.

Zitat von Jim Carrey:

Verständnisfrage: wie soll man dann von innerhalb des Threads das StringGrid füllen?

Gar Nicht!

Du kannst z.B. in der Messung einen Ergebnissatz erstellen. Die Messung sendet an den Haupt-Thread eine Nachricht, und dieser holt dann den Ergebnissatz ab und trägt ihn in das Grid ein.
Und wenn es mehr als 1 Ergebnis gibt, dann solltest Du das z.B. mit einer Liste oder einem Array organisieren.


Gruß
K-H

Grundsätzlich kann man das Grid aus dem Thread heraus befüllen, wenn dies synchronisiert erfolgt. So lange steht halt der Thread.

Wenn man ein Zwischenergebnis schnell in eine Liste wirft, kann der Thread sofort weiter wuseln und das nächste Ergebnis holen.
Der Mainthread kann dann nach und nach ein Ergebnis aus der Liste holen und dieses darstellen.
In dem Fall muss aber die Liste gegen konkurrierende Zugriffe abgesichert werden (z.B. mit CriticalSections) damit der Thread die Liste nicht beschreiben will während der Mainthread einen Eintrag entnimmt und die Liste kürzt. Der Thread könnte dann keinen Eintrag mehr hinter die ermittelte letzte Position hängen, da die inzwischen nicht mehr existiert.

Also ist die ursprüngliche Lösung die einfachere und bessere, sofern diese keine Performanceprobleme mit sich bringt.

Ist eigentlich niemand aufgefallen, dass man mit Form1.Measure; auf das VCL-Formular aus dem Thread zugreift, was man tunlichst unterlassen sollte?

Hallo Leute,
vielen Dank für das tolle Feedback.

Ich hatte das mit MyThreadObject.terminate schon ausprobiert. Dabei kommt mir aber eine Fehlermeldung auf 'Cannot terminate an externally thread.'

Bei MyThreadObject.free wird mir eine Access Violation angezeigt.

Ich habe mir eine 'WAIT'-Funktion in meine WriteToStringgrid - Procedure geschrieben, das sollte doch reichen?

Wäre schön wenn wir das noch lösen könnten