StringList über AddObject in ListView

[Yheeky]

Hi,

ich habe ein ListView mit 3 Columns. In der ersten Column möchte ich eine ID reinschreiben, in die zweite einen Namen und die dritte möchte ich mehrere String (in Form einer Stringlist) reinschreiben.

Hier mein Beispielcode:

Delphi-Quellcode:

var LI : TListItem;
begin
LI := ListView1.Items.Add;

LI.Caption := '01';
LI.SubItems.Add('Max Mustermann');
LI.SubItems.AddObject({ TStringList });

Wie kann ich das realisieren?

[mkinzler]

Delphi-Quellcode:

LI.SubItems.Add( sl.Text);

[Yheeky]

Nee, da hab ich mich vielleicht falsch ausgedrückt. Angenommen ich möchte mehrere Adressen speichern (vielleicht auch von einem eigenen Typen). Wie kann ich denn sowas machen?

[mkinzler]

Und wie willst du die Liste abzeigen?

Delphi-Quellcode:

LI.SubItems.AddObject( 'Liste', sl);

[Yheeky]

Abzeigen?
Ich glaube wir reden aneinander vorbei ;-)
Anderes Beispiel:

Ich möchte einem Nutzer die Möglichkeit geben eine ID, einen Namen und eine Liste von Adressen einzugeben. Diese sollen dann in einer ListView gespeichert werden. Wenn man den Eintrag dann auswählt, soll die ID, der Name und alle eingegebenen Adressen angezeigt werden.

Das möchte ich gerne realisieren...in der ListView steht dann nur der string, der bei AddObject übergeben wird, aber Hauptsache ich kann später noch auf die Adressen zugreifen.

Weisst du jetzt was ich meine oder weiss vielleicht jemand anderes, wie das funktioniert?

[mkinzler]

Zitat:

Abzeigen?

Ich meinte anzeigen

Zitat:

Ich möchte einem Nutzer die Möglichkeit geben eine ID, einen Namen und eine Liste von Adressen einzugeben. Diese sollen dann in einer ListView gespeichert werden. Wenn man den Eintrag dann auswählt, soll die ID, der Name und alle eingegebenen Adressen angezeigt werden.

Genau das hat doch das erste Beispiel gemacht

[Yheeky]

Okay, folgendes:

Ich habe deinen Code und in sl stehen die Strings "1", "2" und "3".

Ich füge meiner ListView die Stringliste hinzu.

Delphi-Quellcode:

LI.SubItems.AddObject('Liste', sl);

Wie kann ich sie nun auslesen?

[mkinzler]

Delphi-Quellcode:

Caption := (ListView1.Items.Item[0].SubItems.Objects[1] as TStringList).CommaText;

[Yheeky]

Ah, gibt da auch die Möglichkeit die Objekte anzusprechen - leider wird mir aber eine Exception angezeigt.
Mit Objects[1] wird was genau angesprochen?

Kannste mir vielleicht ein kleines, kurzes Beispiel zeigen, wie ich Daten setzen und wieder auslesen kann - wie gesagt - bekomme leider ne Exception :-(

Wäre super!

[mkinzler]

in Objects stehen Zeiger auf ein Object, das extern verwaltet werden muss. D.h. es muss existieren.