TCollection & TCollectionitem Tutorial

[MrBrown90]

Ja doch das ist mir klar. Nur ich bin mir nicht sicher ob ich die update() Methode verstehe. Diese Ruf ich auf wenn ich ein bestimmtes Item mit index(xy) ändern will oder ?

[TiGü]

Versuchen wir es mal anders:
Zitiere (kopiere) bitte die vier Absätze der Dokumentation von System.Classes.TCollection.Update in deinen nächsten Beitrag.

[Der schöne Günther]

Die Update()-Methode ist protected , wenn du einfach hingehst und eine TCollection verwendest kannst du die Methode gar nicht aufrufen.

Wenn du Unterklassen bilden sollst die von TCollection und TCollectionItem ableiten sollen dann macht das natürlich Sinn, ist aber ehrlich gesagt auch nicht ganz trivial (finde ich). Ist dem so? Ich finde das aus

Zitat:

Die konkrete Aufgabe lautet:
A component that organized Tür Threads ans their outputs
a:Use TCollection with its methods "Changed" and "Update ".


Ich habe bereits eine Class von TCollection und Tcollectionitem erstellt.

immer noch etwas schwer herauszulesen.

[MrBrown90]

@der schöne Günther...das ist die ganze aufgabenbeschreibung

[TiGü]

Zitat von Der schöne Günther:

Wenn du Unterklassen bilden sollst die von TCollection und TCollectionItem ableiten sollen dann macht das natürlich Sinn, ist aber ehrlich gesagt auch nicht ganz trivial (finde ich). Ist dem so? Ich finde das aus

Zitat:

Die konkrete Aufgabe lautet:
A component that organized Tür Threads ans their outputs
a:Use TCollection with its methods "Changed" and "Update ".


Ich habe bereits eine Class von TCollection und Tcollectionitem erstellt.

immer noch etwas schwer herauszulesen.

Zitat von MrBrown90:

@der schöne Günther...das ist die ganze aufgabenbeschreibung

Was der Schöne meint ist wohl eher, das so Sachen wie "Tür Threads ans" und "a:Use" irgendwie ein bisschen kryptisch sind.

[MrBrown90]

Hi,

Für die Aufgabe die ich gepostet habe bezüglich Threads hab ich folgende Execute Methode geschrieben

Procedure TMyThread.Execute;
Begin
While Not Terminated so
If ID=1 Then
Begin
//Macht was
If ID=2 ....usw

Die Ids vergebe ich über eine listbox.

Aber ganz klappt das nicht, ist der Ansatz in Ordnung ?

[TiGü]

Zitat von MrBrown90:

Hi,

Für die Aufgabe die ich gepostet habe bezüglich Threads hab ich folgende Execute Methode geschrieben

Procedure TMyThread.Execute;
Begin
While Not Terminated so
If ID=1 Then
Begin
//Macht was
If ID=2 ....usw

Die Ids vergebe ich über eine listbox.

Aber ganz klappt das nicht, ist der Ansatz in Ordnung ?

Das kommt jetzt darauf an, was genau "// Macht was" machen soll.
Und was genau "ganz klappt das nicht" heißen soll.
Klappt es nur zu 74,3 % oder wie sollen wir das deuten?
Das alte Glaskugel-Problem, du verstehst?

Es gibt in Delphi auch sowas wie ein switch-case-Statement. Nennt sich hier Case-Of.
Kann ich dir folgende Lektüre ans Herz legen?
https://downloads.delphi-treff.de/DelphiStarter.pdf

[TBx]

Es wäre schön, wenn Du dir angewöhnen würde, die Delphi-Tags zu verwenden.
Dann sähe das Ganze so aus:

Delphi-Quellcode:

  
Procedure TMyThread.Execute;
Begin
  While Not Terminated do
    If ID=1 Then 
    Begin 
      //Macht was 
    If ID=2 // ....usw

Prinzipiell ist ein While not Terminated im Execute eines TThread-Nachfahren richtig. Leider ist aus dem von Dir geposteten Bruchstücks nicht ersichtlich, ob die vollständige IF-Orgie (die man durch ein Case ersetzen könnte) im Deiner While-Schleife abgearbeitet wird. Auf den ersten Blick würde ich vermuten, das da nur das erste IF dranhängt, da auf das While-Statement kein begin folgt.

Und den von TiGü geposteten Link kann ich natürlich voll umfänglich empfehlen

[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

[TiGü]

Ok...da haben wir jetzt mehrere Baustellen, aber arbeiten wir das erstmal Schritt für Schritt ab.

Was ist ID? Wo kommt die Variable her, wie wird sie befüllt?
Ändert sich der Wert von ID überhaupt, wenn du das dazu passende Oberflächenelement änderst?

Bitte höre auf am Handy zu schreiben und logge dich mit deinen PC ein. Das macht ja erstmal einen komischen Eindruck, wenn der Student in seinen Praktikum ständig am Smartphone hängt.
"Hey Chef, der neue Praktikant surft den ganzen Tag mitt'n Smartphone rum!" - "Waaaas??? Der soll doch seine einfache Lernaufgabe lösen!"