Prozedur mit Parametern an Thread übergeben

**bwolf**

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:

markieren

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:

markieren

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!

Prozedur mit Parametern an Thread übergeben

Prozedur mit Parametern an Thread übergeben

Forumregeln