ich hab jetzt mein code noch etwas geändert, so funktionierts:
Delphi-Quellcode:
if (listbox1.itemindex <> -1) and (listbox1.itemindex < listbox1.items.count) then
begin
listbox1.ItemIndex := listbox1.itemindex+1;
edit1.text := listbox1.items.strings[listbox1.itemindex] ;
end
else
edit1.text := '';
Zitat von
Mr_G:
Wobei
Zitat:
and (listbox1.itemindex < listbox1.items.count)
hätte man doch auch weglassen können, oder?
nein, wenn der itemindex grösser wird als der count, gibts eine fehlermeldung