TCollection & TCollectionitem Tutorial

[MrBrown90]

Okay

MACHT was = Form1.Memmo1.Lines.Add('Thread Nr 0' + DateTimetostr(Now) +'uhr')

Und das halt dann für jedem Thread, es ändert sich praktisch nur die Nummer des Threads

Meine einzelnen Threads starte ich über einen Button und davor wähle ich den Thread über die Listbox aus.

Procedure TForm1.StartClick(Sender: TObject)
Begin
If id =1 then
Begin
Thread1 := TMyThread.Create
End;

Usw...


Stoppen würde ich auch mit einem Button

If id =1 then
Begin
Thread1.free
End

Usw..

Es klappt nicht, das mehrer Threads gestartet werden ...es klappt nur bei Thread Nr 0


Und danke für die Lektüre, hab if nur zum testen benutzt, wollte mich noch mit Switch Case beschäftigen