Objekte in einer ListBox verarbeiten

[flodeluxe]

Hi,
Ich habe da noch mal eine Frage, wie kann ich es machen, das der Benutzer, in der Laufzeit etwas in die Listbox speichert, sagen wir mal einen Namen und das ich dann, wenn mehrere Namen drin stehen, einen beliebigen anklicke und dort sagen wir, in einem edit Feld, etwas vorher eingespeichertes aufrufe?
Das fette soll die Frage sein :)

mfg Flo

[Yheeky]

Erstens ist der fette Teil keine Frage und zweitens, wenn es doch eine seien sollte, hab ich sie nicht verstanden :lol:
Was hast du denn genau vor? Kannst du´s vielleicht mal etwas genauer erklären?

Gruß Yheeky

[X-Dragon]

Um das machen zu können sollte am besten die Einträge z.B. so vorgenommen werden:

Code:

LitBox1.AddItem(obj.name, obj);

Dann brauch man nur noch in einer Schleife überprüfen welcher Eintrag selektiert ist und kann dann die Daten mit:

Code:

ListBox1.Items.Objects[i];

auslesen.

[edit]
also ein Objekt "Kunden" oder ähnliches ist dafür schon notwendig :angle2:

[flodeluxe]

Ich will ein Telefonbuch erstellen und man soll, wenn man auf A klickt in einer ListBox alle Einträge angezeigt bekommen, die eingegeben worden sind. Wenn ich dann einen Eintrag aus der ListBox anklicke sollen dann die weiteren Informationen angezeigt werden. Meine Frage:

Wie kann ich es machen, dass wenn ich einen beliebigen Eintrag anklicke, dieser dann gezeigt wird?

[Snoop007]

parallel zu der listbox lässt du ein array laufen

z.b.

Code:

type TAdressen = recod
   name : string;
   anschrift : string;
   tel : string;
end;

var
  adrliste : array of TAdressen;

dann einfach das array laden z.b. aus einer datei

Code:

...
while not EOF(datei) do
begin
  SetLength(adrliste,length(adrliste)+1)
  adrliste[length(adrliste)-1].name := lesen name .....
  Listbox1.Items.Add(lesen name)
  adrliste[length(adrliste)-1].anschrift := lesen anschrift .....
end;
...

wenn du dann auf die listbox klickst werden die werte aus dem array in die Edits übertragen

Code:

prcodure  Listbox1OnClick(sender)
begin
  if ItemIndex.Itemindex > -1 then
  begin  
    Edit1.text := adrliste[Listbox1.ItemIndex].name;
    Edit2.text := adrliste[Listbox1.ItemIndex].anschrift;
  end;
end;

[flodeluxe]

Ok, danke für eure Antworten..! :P