Aus Datenmodul mit findcomponente alle ADO-Tables finden

[Nalincah]

Ich will aus einem Datenmodul alle Komponenten des Typs "TADOTable" finden. Die Namen sind total verschieden. Also nicht ADOTable1, ADOTable2,.... Wie krieg ich das hin? Soweit bin ich schon:

Code:

 
for i := 0 to QRDatenModul.ComponentCount do
begin
  if QRDatenModul.FindComponent(
end;

Weiter weiß ich nicht

[sakura]

Versuch mal:

Delphi-Quellcode:

 
for i := 0 to QRDatenModul.ComponentCount do
begin
  if QRDatenModul.Components[I] is TADOTable then
    ShowMessage(QRDatenModul.Components[I].Name);
end;

......

P.S. Anstatt der CODE-Tags kannst Du auch die DELPHI-Tags nutzen, sieht besser aus

[Nalincah]

Danke. Klappt wunderbar

[sakura]

Zitat von General2003:

Danke. Klappt wunderbar

Dachte ich mir's doch

... ...

[samson]

Muss das nicht heissen ...

Delphi-Quellcode:

for i:=0 to QRDatenModul.ComponentCount-1
...
...
...

weil ja Null-Basiert???


Gruss


Frank

[sakura]

Zitat von samson:

Muss das nicht heissen ...

Yepp...

... ...