Delphi-PRAXiS - Einzelnen Beitrag anzeigen

**100nF**

hi,

Delphi-Quellcode:

			if (listbox1.itemindex <> -1) and (listbox1.itemindex < listbox1.items.count) then

edit1.text := listbox1.items.strings[listbox1.itemindex+1]

else

edit1.text := '';

habs nicht getestet, sollte aber laufen

gruss
urbanbruhin

100nF Registriert seit: 7. Nov 2004 639 Beiträge	#4 Re: Liste abarbeiten 12. Sep 2005, 20:42 hi, markieren Delphi-Quellcode: if (listbox1.itemindex <> -1) and (listbox1.itemindex < listbox1.items.count) then edit1.text := listbox1.items.strings[listbox1.itemindex+1] else edit1.text := ''; habs nicht getestet, sollte aber laufen gruss urbanbruhin
	Zitat

Einzelnen Beitrag anzeigen

Re: Liste abarbeiten