TStringList einer TListBox zuweisen

[Peter-Pascal]

Hallo,

ich bin ein wenig ratlos, bzw. hoffe das mir das jemand erklären kann.

Ich habe eine TStringList (Liste := TStringList.create) und möchte diese einer TCheckListBox zuweisen in der Annahme, dass mir der Inhalt ausgewiesen wird.
CheckListBox1.Items := Liste;
Alles was ich später in Liste schreibe wird nicht in der CheckListBox aufgeführt.

Weise ich meiner Variablen Liste (deklariert als TStringList) := CheckListBox1.Items zu, dann funktioniert es. Kann es sein, dass glaube ich hier mal gelesen zu haben, dass nur eine Kopie im vorherigen Falle benutzt wird? Es als quasi zwei Listen gibt?

Ich nutze die Object-Eigenschaft der TStringList (Liste.AddObject('Neuer Eintrag',TObject.create); und wollte über die CheckListbox auch die Objecte verändern,in der Annahme auch die zugewiese Liste hat den gleichen Inhalt.

Vielen Dank für Eure Hilfe

Gruß Peter

[himitsu]

Tja, da die TListBox, bzw. TCheckListBox, so wie z.B. auch ein TMemo, ihre eigenen ganz "speziellen" Listen besitzen und es absichtlich nicht zulassen, daß man diese austauscht/kaputtmacht, wird dieser "Schreibzugriff" anders behandelt.

Aber ein Blick in die Quellcodes hätte es einem auch selbst verraten, also daß es im Setter etwas Anders behandelt wird.
CheckListBox1.Items.Assign(Liste);

Und TStrings.Assign macht

Delphi-Quellcode:

CheckListBox1.Items.Clear;
CheckListBox1.Items.AddStrings(Liste);

[Peter-Pascal]

Ich muss zugeben bislang noch nicht in den Quellcode geschaut zu haben, bin ich bislang noch nie so richtig durchgestiegen.

Aber es klappt doch, wenn ich es umgekehrt zuweise, also der Liste die Items aus ChecklistBox?

[himitsu]

Du mußt unbedingt den Unterschied zwischen einem Property und einer Variable lernen.

Nochmals:

Beim Zuweisen an TListBox.Items wird ein Setter aufgerufen und darin wird der Inhalt (alle Strings) von der Einen in die andere Stringliste kopiert.

Wenn du deiner Variable umgekehrt den TListBox.Items zuweist, dann speicherst du nur den Instanzzeiger der Stringliste in deiner Variable.
PS: Du hast dir grade ein Speicherleck gebastelt, denn die TStringList, welche vorher in der Variable "verlinkt" war, fliegt nun spurlos und verloren im Speicher rum.

[Peter-Pascal]

Zitat von himitsu:

Wenn du deiner Variable umgekehrt den TListBox.Items zuweist, dann speicherst du nur den Instanzzeiger der Stringliste in deiner Variable.
PS: Du hast dir grade ein Speicherleck gebastelt, denn die TStringList, welche vorher in der Variable "verlinkt" war, fliegt nun spurlos und verloren im Speicher rum.

Genau diese Zuweisung wollte ich ja, denn so kann ich von zwei Stellen auf die gleiche Liste zugreifen. Oder gibt es eine andere Möglichkeit?

Reicht es nicht, der Variablen Nil zuzuweisen, um das Speickerleck zu beseitigen? TListBox.Items wird von TListBox aus dem Speicher entfernt

[himitsu]

Zitat von Peter-Pascal:

Genau diese Zuweisung wollte ich ja, denn so kann ich von zwei Stellen auf die gleiche Liste zugreifen.

Wenn es nur darum geht, dann würde das so schon funktionieren.
Du brauchst vorher nur keine TStringList zu erstellen und in die Variable zu legen.

Zitat von Peter-Pascal:

TListBox.Items wird von TListBox aus dem Speicher entfernt

Jupp.

Zitat von Peter-Pascal:

Reicht es nicht, der Variablen Nil zuzuweisen, um das Speickerleck zu beseitigen?

Wenn du vorher eine selbsterzeugte TStringList dort reingetan hast, dann nicht, denn um die Freigabe dieser Instanz müsstest du dich kümmern.

[Peter-Pascal]

die Variable ist nur vom Typ TStringList, wird nicht vorher erzeugt. Klappt aber leider doch nicht so schön, wie erhofft. Ich hatte mir dadurch Übersichtlichkeit versprochen. Leider ist das Gegenteil der Fall.

Vielen Dank für Deine Hilfe, himitsu.

Gruß Peter

[Bummi]

Ich weiß ja nicht was Du genau vor hast, aber gegf. ist
lbVirtual beim Style der Checklistbox das was Du suchst (die Checkistbox hat dann keine eigen Liste sondern stellt Daten aus einer Stringlist, einem Array oder was auch immer dar), mit den Ereignissen OnData und OnDataObject, die Frage ist nur wie Du die Checked-Eigenschaft verwalten willst.

[Peter-Pascal]

Hallo Thomas,

die Sache mit lbVirtual habe ich mir angeschaut und ich muss zugeben auf den ersten Blick als zu kompliziert beiseite gelegt. Nichtsdestotrotz möchte ich gerade den vollen Leistungsumfang der CheckListBox haben.

Wozu ich es brauche:

Ich habe mehrere tief verschachtelte selbstgebaute Objecte. In einem Object wird eine Liste (TStringList) geführt, die Objecte und Namen entgegen nimmt. Hier habe ich mich für TStringList entschieden statt TObjectList, gerade weil ich die Liste weitergeben wollte. Und in der CheckBoxList müssen alle Namen angezeigt werden.
Um das ständige synchronisieren zweier Listen zu vermeiden, habe ich diese Zuweisung vorgenommen von TCheckListBox.Item an eine Variable vom Typ TStringList. Das klappt auch. Ich kann entweder über die CheckListBox zugreifen oder über die StringList in meinem Object. Ist aber doch nicht so elegant wie ich es gehofft habe. Greife ich über TCheckListBox.Item zu, muss ich immer eine TypCast machen: TObject(TCheckListBox.Item.Object[i]).
Zur vollständigkeit: Im anderen Falle muss ich natürlich auch einen TypCast durchführen, kann mir aber ein Property schreiben, das mir genau das gewünschte Object liefert.

Ich denke ich werde hier noch viele Fragen stellen. Wobei ich vieles auch in den bisherigen Beiträgen gefunden habe.

Gruß Peter

[Bummi]

Klingt so als ob Du Dir die Genrics mal anschauen könntest, mit lbVirtual könntest Du für die Check-Infos direkt eine Property Deiner Objekte vorsehen.