TStringList einer TListBox zuweisen

[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.

[Peter-Pascal]

Was heißt Genrics?

Ich sehe gerade Du arbeitest mit Delphi XE3, weißt Du ob in dieser Version die TRibbon verbessert wurden? In hatte in einem anderen Beitrag schon danach gefragt, weil ich bei XE2 große Probleme mit TRibbon habe.

[Bummi]

Generics wäre in Deinem Fall z.B. eine Liste TObjectList<TMyClass> ...
Die delphieigene Ribbonimplementierung verwende ich nicht (stattdessen devExpress)

[Peter-Pascal]

Ja die Empfehlung für devExpress habe ich hier bereits bekommen, aber da ich noch nicht so richtig weiß, wo die Reise hingeht, möchte ich noch kein Geld ausgeben und hoffe halt darauf, dass XE3 die TRibbon verbessert hat. Es ist von der Anlage her soweit ja ganz gut, funktioniert nur nicht, das wird man ja wohl in den Griff bekommen...

[Popov]

Vielleicht noch einen kleinen Tipp:

  ListBox1.Items.Text := List.Text;

[Bummi]

@Popov

Zitat:

Ich nutze die Object-Eigenschaft der TStringList

[himitsu]

Zitat von Popov:

Vielleicht noch einen kleinen Tipp:

  ListBox1.Items.Text := List.Text;

Kommt auf's Selbe raus, wie

Delphi-Quellcode:

ListBox1.Items := List;
// oder
ListBox1.Items.Assigned(List);

Wobei der Weg über .Text eines TStrings nicht unbedingt optimal ist (außer z.B. bei aktuellen TMemo und TRichEdit), denn was passiert intern?
Es wird, beim Auslesen von .Text, aus allen einzelnen Strings ein ganz großer String gemacht, welcher dann, beim Zuweisen an .Text, erst wieder zerlegt und dann jeder einzelstring an die Komponente übergeben wird.