TThread.Synchronize + Param

[Nic2012]

Hallo,
das aus http://www.uweraabe.de/Blog/2011/01/...th-parameters/ genannte Beispiel

Code:

procedure TMyThread.CallMyProgress(PercentComplete: Integer);
begin
  if GetCurrentThreadId = MainThreadID then begin
    if Assigned(FOnMyProgress) then
      FOnMyProgress(PercentComplete);
  end
  else begin
    Synchronize(
      procedure
      begin
        CallMyProgress(PercentComplete);
      end);
  end;
end;

ist was ich suche, ich bin mir aber nicht sicher, ob sich das auch mit einer alten Delphi 7 Prof. Version benutzen lässt ?

Gruß, Nic

[himitsu]

Nein, anonyme Methoden gibt erst seit den Generics, also ab D2009.

Du mußt deine Parameter über eine "globale" Variable übergeben.

Und aufpassen, da mehrere gleichzeitige Aufrufe natürlich die selbe Variable nutzen.

Zitat von Nic2012:

ich bin mir aber nicht sicher, ob sich das auch mit einer alten Delphi 7 Prof. Version benutzen lässt ?

Hättst du es einfach mal ausprobiert, dann wärst du dir sicher gewesen, also daß es nicht geht.

[Nic2012]

Ok und besten Dank, ein D7 habe ich augenblicklich nicht zur Hand.