TCollection & TCollectionitem Tutorial

[MrBrown90]

Ja ich meinte Constructor. Aber ich verstehe leider überhaubt nicht, wie ich das umsetzten soll.

So ist Quatsch oder ?

Delphi-Quellcode:

TThreadItem = class(TCollectionItem)

  private

  public

    FThreadItem:TMyThread;

    constructor Create(ACollection: TCollection); override;

  published

  end;

 

constructor TThreadItem.Create(ACollection: TCollection);

begin

    inherited Create(ACollection);

    FThreadItem:=TMyThread.Create;

 

end;

[TiGü]

Wäre eine Möglichkeit.
Ich würde prinzipiell die Instanz von TMyThread von außen erzeugen und über eine Property eingeben, aber das ist jetzt Geschmackssache und erstmal irrelevant.
Das TThreadItem ist dann in deiner Lösung verantwortlich für die Erzeugung der TMyThread-Instanzen und auch für deren Anhalten/Freigabe/Zerstörung.

Mache dir nun Gedanken, wie die jeweilige TMyThread-Instanz ihre ID erhält.
Vergleiche meinen Vorschlag mit dem erweiterten Constructor.

[MrBrown90]

Okay, also wenn ich das richtig verstehe, muss ich dann auch im deconstructor meine Threads terminieren und freigeben?


Mit den Ids hätte ich jetzt über die Listbox gelöst...oder ist das wieder schlecht, weil ich wieder direkt auf die GUI zugreife?

Delphi-Quellcode:

for i := 0 to 5 do

  begin

   ListBox1.Items.AddObject('Thread Nr. ' + IntToStr(i), TObject(ThreadL.AddEx));

  end;

[DeddyH]

Wenn der Hauptthread auf die GUI zugreift, ist das unproblematisch. Nur wenn Deine TThread-Instanzen das tun sollen, muss das (wie auch immer) synchronisiert geschehen, sei es per Messages, TThread.Synchronize oder TThread.Queue.

[TiGü]

Destructor! Es mangelt wirklich an den Grundlagen!
https://en.wikipedia.org/wiki/Destru...r_programming)
Macht man heutzutage im Informatik-Studium nur noch HTML?


Das kannst du so machen, wie im Quelltext-Schnipsel gezeigt.

Wie hast du es denn gelöst, das der TMyThread seine ID/die Nummer erhält?

Das hat übrigens mit GUI-Zugriff und Threads nichts zu tun, da du hier immer noch im Hauptthread bist.
Alles was du im Execute von deinen Threads ausführst, sollte halt nur synchronisiert zum Mainthread erfolgen.
Dafür wurde dir aber auch schon dreimal der Link zur Doku gepostet.

[freimatz]

Zitat von TiGü:

Destructor! Es mangelt wirklich an den Grundlagen!
https://en.wikipedia.org/wiki/Destru...er_programming)
Macht man heutzutage im Informatik-Studium nur noch HTML?

Nun ja, in modernen Programmiersprachen benötigt man Destruktoren nur noch sehr selten.

@MrBrown90: Geduld! Weiter so. Nur wer dran bleiben kann, wird es als Softwareentwickler zu was bringen.

[MrBrown90]

Ja da mangelt es.

Das wollte ich so lösen.

Delphi-Quellcode:

procedure TForm7.StartClick(Sender: TObject);

var

Thread1: TMyThread;

begin

 

  Thread1:= TMyThread(ListBox1.Items[ListBox1.ItemIndex]);

  Thread1.Resume;

Scheint aber falsch zu sein, da die Meldung kommt "das handle ist ungültig"

[TiGü]

Zitat von MrBrown90:

Scheint aber falsch zu sein, da die Meldung kommt "das handle ist ungültig"

Jup, das ist auch falsch.
Was für ein Datentyp kommt denn bei ListBox1.Items[Index] zurück?
Tipp: Du hattest es schon mal richtig dazustehen (Beitrag #65).

[MrBrown90]

Okay,da hab ich nicht überlegt! Ich muss ja erstmal einen Thread a7s meiner TCollection holen

[MrBrown90]

Ich brauch ListBox1.Items.Objects

Mit nur .Items spreche ich ja die line an