Hallo zusammen,

wie verwalte ich mehrere Threads über eine Listbox?

... so starte ich (vereinfacht dargestellt):

markieren

Code:

var
  xThread: TMyThread;
 
procedure TForm1.ButtonStartClick(Sender: TObject);
begin
  xThread := TMyThread.Create;
  xThread.FreeOnTerminate := True;

  inc(iTNr);
  xThread.Nr := iTNr;
  xThread.Id := xThread.ThreadID;  //nur zur Thread Unterscheidung
  xThread.Start;

  ListBox1.Items.AddObject('Thread ' + IntToStr(iTNr), xThread);
  ...

... das Stoppen ausgewählter Threads haut noch nicht hin ?!?

markieren

Code:

procedure TForm1.ButtonStopClick(Sender: TObject);
begin

  if ListBox1.ItemIndex > -1 then
  begin

    xThread.Terminate;  //stoppt nur den letzten!!!

    ListBox1.Items.Delete(ListBox1.ItemIndex);
    ...

Wie komme ich da an das hinterlegte Objekt? (hab da was von Casten gelesen, kann es aber in der Syntax nicht umsetzen)

Gruß MarLe

Wenn Du das Objekt mit
ListBox1.Items.AddObject('Thread ' + IntToStr(iTNr), xThread); in der ListBox hinterlegst, müsstest Du mit
(ListBox1.Items.Objects[ListBox1.ItemIndex] as TMyThread) wieder herankommen.

Mit casten meinst du wahrscheinlich so:

markieren

Delphi-Quellcode:

  xThread := TMyThread(ListBox1.Items.Objects[ListBox1.ItemIndex]);
  xThread.Terminate;

Funzt Danke, so habe ich es jetzt stehen:

markieren

Code:

(ListBox1.Items.Objects[ListBox1.ItemIndex] as TMyThread).Terminate;

Was mich jetzt wundert dass er damit auch gleich den Eintrag aus der ListBox nimmt?!?

Gruß MarLe

Am besten ist es natürlich so etwas nicht mit einer ListBox zu verwalten.

Dafür schafft man sich einen Kontext, der auch länger als das Formular lebt und verwaltet die Threads dort. Wenn man das jetzt in einer ListBox anzeigen möchte, nun einfach machen ... aber direkt damit koppeln ist immer der Anfang vom Ende

Zitat von MarLe:

Was mich jetzt wundert dass er damit auch gleich den Eintrag aus der ListBox nimmt?!?

Das liegt ganz bestimmt an dieser Zeile
ListBox1.Items.Delete(ListBox1.ItemIndex);

Zitat:

Das liegt ganz bestimmt an dieser Zeile
ListBox1.Items.Delete(ListBox1.ItemIndex);

Stimmt, das hatte ich doppelt drin!

Zitat:

Am besten ist es natürlich so etwas nicht mit einer ListBox zu verwalten.

Ok, das habe ich mir schon gedacht dass es da was Besseres gibt.
Ich will mich ja steigern, der nächste Versuch wäre die Verwaltung über eine ObjectList.
Da gibt es ja eine alte und eine neue mit Generics, typsicher habe ich gelesen.
Hast du da vielleicht ein Anschauungsbeispiel wie man das richtig macht.
Ich will eigentlich nur x-Threads starten, aber gezielt einzelene wieder stoppen.
Mir geht's jetzt mehr ums Verständnis wie man das sauber macht.

Gruß MarLe