Innerhalb der anonymen Methode wird immer der gerade aktuelle Wert der Variablen i und fn verwendet. Da dieser zur Ausführung in der Task schon ein anderer sein kann als zur Erzeugung der Task, kommt es zu diesem Verhalten. Du kannst aber die anonyme Methode auch über eine Funktion erzeugen lassen, der du den i- und fn-Parameter mitgibst. Dabei erhalten die Parameter ihre Werte aus dem Hauptthread und stehen der Task exklusiv zur Verfügung (Code ungetestet).
Delphi-Quellcode:
function CreateMyTask(I: Integer; fn: string; HandleResult: TProc<string>): TProc;
begin
result :=
procedure ()
var
ok: Boolean;
begin
ok := DownloadFile(fn); // Herunterladen - zeitintensiv
TThread.Synchronize(nil,
procedure
var
ss: String;
begin
if ok then begin
ss := fn + ' wurde heruntergeladen.';
end
else begin
ss := fn + ' wurde nicht heruntergeladen.';
end;
HandleResult(IntToStr(i) + ' - ' + ss);
end);
end;
end;
...
SetLength(tasks, anz);
for i := 0 to anz - 1 do
begin
fn := Files[i].Filename;
s := fn + ' wird heruntergeladen...';
line := Memo1.Lines.Add(s);
Files[i].Zeilennummer := line;
tasks[i] := TTask.Create(CreateMyTask(i, fn,
procedure (Arg: string)
begin
Memo1.Lines.Add(Arg);
end));
tasks[i].Start;
end;