problem mit listenindex überschreitet maximum

[Sanchez]

Hallo,

Von welchem Typ ist den Artikel? Aus deinem Quellcode geht nicht hervor, wo Artikel gefüllt wird und das ArtikelCount wirklich
die Anzahl an Elementen in Artikel ist. Meine Glaskugel ist leider zurzeit in der Reinigung, aber dort würde ich jetzt weitersuchen, hätte ich den Source.

Delphi-Quellcode:

..
For I:=0 to ArtikelCount-1 Do begin
  Gauge1.Progress := I;
  If (Artikel[I].ENDKUNDE='JA') AND (Artikel[I].VERFUEGBARKEIT='JA') then begin
    if ListeModel.items.indexof(Artikel[I].ARTIKELNUMMER) =-1 then begin 
       ...
    end;
  end;
end;

Übrigens du vergleichst hier Strings auf Gleichheit mit JA. Ich weiss zwar nicht, ob dort noch andere Werte als ja oder nein stehen können, aber möglicherweise solltest du da besser boolsche-Variablen verwenden.

grüße, daniel