Wie kann man den mehrere Threads, mit unterschiedlichen Instanzen erstellen
und die Threads dann noch mit unterschiedlichen (Parametern) starten?
Die Threads sollten sich auch selber am ende beenden!
Wenn ich Terminate oder TerminateAndWaitFor Aufrufe stürzt die App ab!
Delphi-Quellcode:
procedure TForm1.Button1Click(Sender: TObject);
var
I: Integer;
begin
for I := 0 to 20 do
begin
ThreadTest:= TIdThreadComponent.Create(nil);
ThreadTest.OnRun:=ThreadTestRun;
ThreadTest.Start;
end;
end;
Die zahl 20 soll durch eine Variable ersetzt werden!