Parameter einem AnonymousThread übergeben.

[Uwe Raabe]

Zitat von Kostas:

dennoch würde mich interessieren wie man dem Thread über Parameter den aktuellen Wert der Zählvariable i übergeben kann?

Mach dir eine Funktion mit Rückgabe der ThreadProc und I als Parameter:

Delphi-Quellcode:

function <Klasse>.MakeThreadProc(I: Integer): TProc;
begin
  result :=
    procedure
    var
      FileName: String;
    begin
      FileName := ChangeFileExt(Application.ExeName, '.log');
      FThreadFileLog.Log(IntToStr(i));
    end;
end;

...

var
  i: Integer;
begin
  for i := 0 to 500 do
  begin
    TThread.CreateAnonymousThread(MakeThreadProc(I)).Start;
  end;
end;