TThreadPool.Default.QueueWorkItem - wie parameter mitgeben

[himitsu]

Jupp. Es gibt eine Reihe vordefinierter generischer Typen, welche man benutzen kann.

Delphi-Quellcode:

type
  TArray<T> = array of T;
  TProc<T> = procedure(A: T);
  TProc<T,T2> = procedure(A: T; A2: T2);
  TProc<T,T2,T3> = procedure(A: T; A2: T2; A3: T3);
  ...

Also praktisch ganz einfach so

Delphi-Quellcode:

class procedure TMeinHelper.AddToPool<T,T2>(P: TProc<T,T2>; A: T; A2: T2);  // leider können einfache Funktionen nicht generisch sein
begin
  TThreadPool.Default.QueueWorkItem(procedure
    begin
      P(A, A2);
    end);
end; 

TMeinHelper.AddToPool<string,Integer>(TestPing5, ip, bla);
TMeinHelper.AddToPool<Integer,string>(TelefoniereNachHause, 666, 'Hölle');

Könnte man auch via Class-Helper direkt an den TThreadPool hängen, als überladene Variante von QueueWorkItem.

Ist letztendlich die generische Variante von Nachfolgendem, nur daß man hier eben alle möglichem Prozeduren mit zwei Parametern übergeben kann.
Und TPoolAddProcWithTwoParams muß man auch nicht selber deklarieren, weil es das schon fertig gibt.

Delphi-Quellcode:

type
  TPoolAddProcWithTwoParams = procedure(A: string; A2: Integer);

procedure AddToPool(P: TPoolAddProcWithTwoParams; A: string; A2: Integer);
begin
  TThreadPool.Default.QueueWorkItem(procedure
    begin
      P(A, A2);
    end);
end; 

AddToPool(TestPing5, ip, bla);

Natürlich hätte Emba auch einfach nur mal intelligent sein können und ein/zwei solcher Überladungen von QueueWorkItem direkt in TThreadPool integrieren können.