Sind alle Thread Variablen in OnTerminate threadsicher?

[berens]

Okay, das wäre dann identisch mit dem Verfahren, das ich bisher verwende, um aus laufenden Threads Informationen auszulesen.

Würde dieses Start vereinfachte Beispiel deinen Erwartungen entsprechen, oder habe ich was wichtiges vergessen oder falsch gemacht?

Delphi-Quellcode:

type
  TBerechnungsThread = class(TThread)
  private
    InternX: Integer;  // Interne Variable für die Berechnung
    procedure SyncX;  // Synchronisiert InternX mit ExternX
  protected
    procedure Execute; override;
  public
    ExternX: Integer; // Externe Variable (thread-sicher über Synchronize)
    OnBerechnungFertig: TNotifyEvent;
    constructor Create;
  end;

constructor TBerechnungsThread.Create;
begin
  inherited Create(True);  // Thread startet pausiert (Suspended=True)
  FreeOnTerminate := True; // Automatisch nach Beendigung freigeben
  OnBerechnungFertig := NIL;
  InternX := 0;
  SyncX; // auch ExtenX korrekt initialisieren, Synchronize brauchen wir hier noch nicht(?)
end;

procedure TBerechnungsThread.SyncX;
begin
  FExternX := InternX;  // Sicherer Transfer in den Hauptthread
end;

procedure TBerechnungsThread.Execute;
begin
  // Beispielhafte Berechnung (hier einfach nur Zuweisung)
  InternX := Random(1000);  // Zufallszahl als Beispiel

  // Synchronisiere den Wert von InternX zu ExternX
  Synchronize(SyncX);

  // Falls ein Ereignis registriert ist, rufe es im Hauptthread auf
  if Assigned(OnBerechnungFertig) then
    Synchronize(procedure begin OnBerechnungFertig(Self); end);
end;


// Hauptprogramm:
procedure TForm1.BerechnungAbgeschlossen(Sender: TObject);
begin
  ShowMessage('Berechnung abgeschlossen! ExternX = ' + IntToStr(TBerechnungsThread(Sender).ExternX));
end;

procedure TForm1.StartThread;
var
  Thread: TBerechnungsThread;
begin
  Thread := TBerechnungsThread.Create;
  Thread.OnBerechnungFertig := BerechnungAbgeschlossen; // Ereignis setzen
  Thread.Start; // Thread starten
end;