Argument außerhalb des gültigen Bereichs (for-Schleife zählt ins Minus)

[SneakyBagels]

Ich bekomme leider seit einiger Zeit oben genannte Fehlermeldung aber nur im 64bit-Kompilat.

Die Meldung kommt an einer Stelle an der ich auf das property einer generischen TObjectListe zugreife.
32bit wie gesagt absolut kein Problem und das hier ist eine absolute Standardzeile nicht einmal die Mühe wert sie hier einzufügen.
Wäre es etwas sehr Ernstes müsste es ja auch im 32bit-Kompilat auftauchen.

Ein kleiner Test hat gerade gezeigt, dass meine Schleife bis mindestens -1 zählt obwohl bei 0 Schluss sein sollte!

Delphi-Quellcode:

 for i := cList.Count - 1 downto 0 do
  begin
   IntToStr(i));

Wie kann das sein?

Edit: Problem wurde erledigt. Seite 5 Beitrag 41 http://www.delphipraxis.net/1371259-post41.html

[zeras]

Lass dir doch einmal vor der Schleife den Wert von
cList.Count anzeigen.
Nicht das der vorher schon negativ ist.
Oder zeige in jeder Schleife den Wert an.
Ich glaube hier kaum, dass es bei einer solch einfachen Funktion ein Problem geben sollte.
Ist vielleicht deine Liste leer?

[SneakyBagels]

for i := cList.Count - 1 downto 0 do Ich der Startwert von Count ist 8.

[nahpets]

Delphi-Quellcode:

if cList.Count > 0 then 
begin
  for i := cList.Count - 1 downto 0 do
  begin
    IntToStr(i)); 
  end;
end else begin
  Meldung leere Liste
end;

Wobei mich bei einer leeren Liste schon interessieren würde, ob bei einem

Delphi-Quellcode:

for i := -1 downto 0 do
begin
  ShowMessage('Diese Meldung zu sehen ist.');
end;

[SneakyBagels]

Die Liste ist befüllt und hat 8 Einträge.
Die Zählung beginnt bei 8 und soll bei 0 aufhören (downto 0). Geht aber ins Minus.

[gammatester]

Zitat von SneakyBagels:

Die Liste ist befüllt und hat 8 Einträge.
Die Zählung beginnt bei 8 und soll bei 0 aufhören (downto 0). Geht aber ins Minus.

Laut Code sollte die Zählung bei 8 Elementen doch bei 7 beginnen

[SneakyBagels]

Folgende Testdaten sind vorhanden
Datei1.txt bis Datei8.txt

Eine Showmessage vor der Schleife zeigt "Count: 8".
Eine Showmessage in der Schleife zeigt "i = 7".... bis "i = 0" und dann geht es noch weiter runter bis -1.

Nothilfe schafft aktuell
if i < 0 then Break; Das ist aber nur bei 64bit nicht bei 32bit.

[nahpets]

Bleibt der Fehler auch, wenn Du das mal so abänderst?

Delphi-Quellcode:

var
  Anzahl : Integer;

begin
  ...
  Anzahl := cList.Count - 1; 
  for i := Anzahl downto 0 do
  begin
    IntToStr(i));
  end;
  ...
end;

[himitsu]

Welche Delphi-Version?

Es gab mal den Bug, wo Int64 teilweise wie UInt64 behandelt wurde. (oder war's andersrum)

[SneakyBagels]

Zitat:

Bleibt der Fehler auch, wenn Du das mal so abänderst?

Ja. Denn Anzahl enthält dann ja cList.Count wo begonnen wird zu zählen.

Tokyo.