TThreadPool.Default.QueueWorkItem - wie parameter mitgeben

[Sir Rufo]

Ich würde es immer trennen und einen generischen Wrapper erstellen, der dann bis zu x Argumenten wrappen kann:

Delphi-Quellcode:

function TWrapper.Wrap<T>( AProc : TProc<T>; Arg: T ): TProc;
begin
  Result := procedure
  begin
    AProc( Arg );
  end;
end;

und dann einfach

Delphi-Quellcode:

var s: string;

TThreadPool.Default.QueueWorkItem( TWrapper.Wrap<string>( procedure ( Arg: string ) begin ... end, s ) );