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?