Hallo,
ich habe einen Thread, dem ich eine Prozedur übergeben möchte, die dann in diesem Thread ausgeführt wird.
Das sieht bis jetzt so aus:
Code:
type
TReportThread = Class(TThread)
public
Proc : Procedure of object;
protected
procedure Execute; override;
end;
procedure TReportThread.Execute;
begin
try
Proc;
except
// Error handling
end;
end;
Den Thread starte ich folgendermaßen:
Code:
procedure TService1.AdsEvent1Notification(Sender: TObject; event: string;
count: Integer; eventdata: string);
var
reportThread : TReportThread;
begin
reportThread := TReportThread.Create(True);
reportThread.Proc := dmReports.printPersonalList;
reportThread.Resume;
end;
// Hier ist die Prozedur die vom Thread ausgeführt werden soll
procedure TdmReports.printStart();
begin
// Code
end;
Soweit klappt das auch alles.
Nun würde ich gerne der Prozedur die dem Thread übergeben wird einen Parameter mitgeben.
Ich habe schon einiges versucht, aber bin leider im gescheitert.
Wäre nett wenn mir da einer weiter helfen könnte...
Vielen Dank!