Hallo,
Zitat von
davar:
ich möchte gern die Einträge in einer Listbox nummerieren, um auf die einzelnen items zugreifen zu können.
wenn die Nummerierung unsichtbar sein soll,
dann würde ich es mit AddObjekt machen:
Delphi-Quellcode:
//Eintragen in ListBox
ListBox1.Items.AddObject('Zum Gruß',Pointer(1));
ListBox1.Items.AddObject('Hallo',Pointer(2));
ListBox1.Items.AddObject('Auf Wiedersehen',Pointer(3));
//anzeige
// Auf Wiedersehen
// Hallo
// Zum Gruß
Delphi-Quellcode:
//Eintrag mit der Nr. 3 suchen
var z,i : integer;
begin
i := 3;
for z := 0 to ListBox1.Items.Count -1 do
if Integer(ListBox1.Items.Objects[z]) = i then
begin
showmessage('gefunden: '+ ListBox1.Items[z]);
exit;
end;
end;