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;