Listindex überschreitet das Maximum

[Andreas L.]

Hi,
ich steh voll am Schlauch, wieso gibt mir folgender Code den Error "Listindex überschreitet das Maximum (-1)" aus?

Delphi-Quellcode:

 //check selected state
 if Listbox1.itemindex > -1 then
  begin
   //if a item is selected
   //form4 will be showed with entrys
   form4.show;
   form4.Caption:='Sender editieren';
   form4.Edit1.Text:=Listbox1.Items.Strings[Listbox1.itemindex];
   form4.Edit2.Text:=Listbox2.Items.Strings[Listbox1.itemindex];
   //channel will be deleted because form4 create it new
   Listbox1.Items.Delete(Listbox1.itemindex);
   Listbox2.Items.Delete(Listbox2.itemindex);
  end

Danke schonmal

[Airblader]

Wo kommt denn der Fehler?

Ich würde spontan sagen, Listbox2 hat nicht genug Items, damit der Itemindex von Listbox1 als Zugriffsindex verwendet werden kann.

air
(p.s.: beim end fehlt das semikolon)

[Andreas L.]

Zitat:

Zitat von Airblader

Wo kommt denn der Fehler?

Ich würde spontan sagen, Listbox2 hat nicht genug Items, damit der Itemindex von Listbox1 als Zugriffsindex verwendet werden kann.

ListBox1 und 2 haben immer gleich viele Items. Liegt es daran das zuerst in der Listbox1 ein item gelöscht wird und das dann eben nicht mehr gleich viele drin sind? Aber in einen anderen Code ca. 50 zeilen drüber hat das selbe auch funktioniert... hmm??? Wer weiß weiter?

Zitat:

(p.s.: beim end fehlt das semikolon)

Der Code geht noch weiter, es kommt ein else. Vor else darf kein Semikolon sein ;-)

Aber trotzdem schonmal Dank

[LoL]

Hi
Poste doch bitte mal nochn bisschen mehr Code, daraus kann man das nicht erkennen!

[Christian Seehase]

Moin Andreas,

geh' da mal im Singlestep durch, damit Du genau weisst, in welcher Zeile der Fehler auftritt.

[Andreas L.]

ich habs. Ein kleines Stück weiter unten (was ich vorher übersehen hab) stand nochmal der selbe Code. habe wohl ausversehen STRG + V doppelt gedrückt. Wird das Item gelöscht, so kann es nicht nochmal gelöscht werden... ist ja logisch......


Aber trotzdem Danke.