Hi shark,
irgendwas passt da bei mir nocht nicht.
Der Code sieht jetzt folgendermaßen aus:
Code:
...
type
TThreadedProc = procedure(const AFileName : String) of object;
type
TReportThread = Class(TThread)
private
FParam1 : String;
FProc : TThreadedProc;
protected
procedure Execute(); override;
public
property Param1 : String read FParam1 write FParam1;
property Proc : TThreadedProc read FProc write FProc;
end;
...
Aber beim zuweisen der Funktion erhalte ich einen Fehler:
Code:
...
reportThread := TReportThread.Create(True);
reportThread.Proc := dmReports.printPersonalList(sRequestId);
reportThread.Resume;
...
Fehler: Inkompatible Typen: 'string' und 'procedure, untyped pointer or untyped parameter'
Für einen Tipp wäre ich nochmals dankbar