Methode wird Thread übergeben. Thread startet methode + var

[Jackie1983]

habe es zur zeit mit zwei globalen Variablen gelöst, wenn einer eine bessere Idee hat dann her damit

Delphi-Quellcode:

  TJobThread = class(TThread)
  private
    fTestCmd : TCommandHandling;
    fTestSocket : TCustomWinSocket;
  ...
    Procedure SyncOutputJob;
  ...
  end;


procedure TJobThread.SyncOutputJob;
begin
  if Assigned(fProcCommand) then
    fProcCommand(fTestSocket,fTestCmd);
end;

procedure TDTSJobThread.Execute;
begin
  inherited;
...
        fTestCmd := cmd;
        fTestSocket := TCustomWinSocket(fJobList.Objects[0]);
        Synchronize(SyncOutputJob);
...
end;