Delphi-PRAXiS - Einzelnen Beitrag anzeigen - Methode mit Synchronize mit Parametern aufrufen

**Luckie**

Ich habe eine Klasse von TThread abgeleitet. In dieser Klasse habe ich Ereignisse, die ich mit dem Hauptthread synchronisieren muss. Diese Ereignisse haben aber noch Parameter (Um einen Fortschritt anzuzeigen zum Beispiel.). das hab eich so gelöst:

zusammenfalten · markieren

Delphi-Quellcode:

			type

  TOnProgress = procedure(Sender: TObject; PercentDone: Integer) of object;

  TOnFinish = procedure(Sender: TObject) of object;

  TSave = class(TThread)

  private

    FFilename: string;

    FIEVect: TImageEnVect;

    FOnProgress: TOnProgress;

    FOnFinish: TOnFinish;

    procedure SetFilename(const Filename: string);

    function GetFilename: string;

    procedure SetIEVect(IEVect: TImageEnVect);

    function GetIEVect: TImageEnVect;

    procedure CompressFiles(Files: TStrings; const Filename: string);

    procedure DecompressFiles(const Filename, DestDirectory: string);

    procedure DoProgress;

  public

    property Filename: string read GetFilename write SetFilename;

    property IEVect: TImageEnVect read GetIEVect write SetIEVect;

    property OnProgress: TOnProgress read FOnProgress write FOnProgress;

    property OnFinish: TOnFinish read FOnFinish write FOnFinish;

    procedure Execute; override;

  end;

markieren

Delphi-Quellcode:

			procedure TSave.DoProgress(PercentDone: Integer);

begin

  if Assigned(OnProgress) then

    OnProgress(self, 0);

end;

markieren

Delphi-Quellcode:

			pd := (i * 100) div Files.Count;

Synchronize(DoProgress(pd));

Jetzt meckert aber Delphi, dass es keine überladene Methode von Synchronize gäbe, die mit diesen Parametern aufgerufen werden könnte. Wie kann ich jetzt die Parameter weiterreiche ohne über eine zusätzliche lokale Variable gehen zu müssen?