Daten aus 2 ListBoxen in eine packen?

[AlexII]

Hallo,

ich verwende 2 ListBoxen, ListBox1 für Vornamen, ListBox2 für Nachnamen. Edits holen sich dann daraus Informationen. Ich möchte aber die Daten in einer ListBox haben. Die Edits müssen dann die Vornamen und Nachnamen irgendwie unterscheiden und anzeigen. Wer kann mir sagen wie es zu machen ist?

Danke

[toms]

Hallo

Setze TabWidth der Listbox (z.B auf 70) und füge die Items wie folgt hinzu:

Delphi-Quellcode:

ListBox1.Items.Add('Vorname'#9'Nachname');

Auslesen kannst du den Vornamen/Nachnamen mit den Pos/Copy Funktionen.

[AlexII]

Und wie soll ich diese Daten dann mit zwei Edits rausholen? :gruebel: Wie weise ich Edit1 auf die Vornamen und Edit2 auf Nachnamen?

[toms]

Zitat:

Zitat von toms

Auslesen kannst du den Vornamen/Nachnamen mit den Pos/Copy Funktionen.

[AlexII]

Ups... verzeih, hab dein Post nicht zu ende gelesen. Läuft das nur so, oder gibt's auch andere Möglichkeiten?

[brechi]

Wenn du die Daten als Objekte speicherst (TPerson etc.) dann kanndt du einem Listbox-Eintrag auch zusätzlich das OObjekt anhängen.

Delphi-Quellcode:

ListBox1.Items.AddObject(Person.Vorname+' '+Person.Nachname, Person);

und dann in den Edits die Daten über

Delphi-Quellcode:

  edit1.text := (Listbox1.Objects[0] as TPerson).Vorname;
  edit2.text := (Listbox1.Objects[0] as TPerson).Nachname

auslesen. Ansonsten würd ich das auch mit Copy/Pos machen.

[markus5766h]

Hallo,

unterscheiden kannst Du über (Index mod 2),
wenn Du abwechselnd Vor- und Nachnahme speicherts,
der Vorname ist dann immer (Index mod 2) = 1,
der Nachname ist dann (Index mod 2) = 0,
wobei Index deine Memo.Lines[i] bezeichnet.

Wenn Du hauptsächlich mit den Edits arbeiten willst,
würde ich eine TStringList nehmen, und daraus die
daten beziehen bzw. speichern.

TListView wäre auch noch eine Möglichkeit.