List index out of (50)

[Stelo]

Hallo,
ich habe da mal ein kleines Problem. Und zwar geht es um folgenden kleinen Code-Ausschnitt:

for i:=50 downto 1 do
begin
zeile := tabelle[i];
end;

Von i:= 1 bis 49 gibt es keine Probleme, aber ab 50 erhalte ich jedes mal die Fehlermeldung:
"List index out of (50)"

Achso, tabelle ist übriges vom Typ TStringList, hängt das irgendwie damit zusammen?

Danke schon mal für die Hilfe!

[Die Muhkuh]

Wie sieht den die Stringliste aus?
Wieviele Einträge hat sie?

Wenn Du 50 Einträge in der Stringlist hast, musst Du von 0 bis 49 bzw. von 49 bis 0 zählen, um alle Einträge zu bekommen.

[DeddyH]

Mach es besser so:

Delphi-Quellcode:

for i:=tabelle.Count - 1 downto 0 do
  begin
    zeile := tabelle[i];
  end;

[Die Muhkuh]

Mach es gleich so:

zeile := tabelle[0]; Kommt in dem Fall aufs gleiche raus.

[Stelo]

Stimmt. Ich habe das Count - 1 vergessen.

Jetzt scheint es zu funktionieren! Vielen Dank!