For-Schleife wird übersprungen...?!

[barnti]

Hallo,
folgender Code

Delphi-Quellcode:

procedure TakDatabase.CreateAccessComponents(AOwner: TComponent);
var
  i: Integer;
  List: TStrings;
  Query: TakQuery;
begin
  List:= TStringList.Create;
  self.GetTableNames('',List); // Einlesen der in der DB vorhandenen Tabellen

  For i:=0 to List.Count-i do  // Für jede Tabelle eine Komponente erzeugen und zur ObjectList 
    FQuerys.Add(TakQuery.CreateDb(AOwner,self,List.Strings[i])); // hinzufügen

List.Count ist >20, sollte daher also funktionieren. Leider wird der Rumpf der Forschleife nicht ausgeführt. Was ist falsch?

[sakura]

Args, schau mal in den zweiten Paramter Deiner Schleife...

Code:

  For i:=0 to List.Count-[color=#f50000]1[/color] do  // Für jede Tabelle eine Komponente erzeugen und zur ObjectList 
    FQuerys.Add(TakQuery.CreateDb(AOwner,self,List.Strings[i])); // hinzufügen

...:cat:...

[barnti]

Mann!
Da hätte ich noch lange schauen können. Danke!