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.
