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 :freak:

[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;

...:cat:...

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

[Nalincah]

Danke. Klappt wunderbar

[sakura]

Zitat:

Zitat von General2003

Danke. Klappt wunderbar

Dachte ich mir's doch :mrgreen:

...:cat: ...

[samson]

Muss das nicht heissen ...

Delphi-Quellcode:

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

weil ja Null-Basiert???


Gruss


Frank

[sakura]

Zitat:

Zitat von samson

Muss das nicht heissen ...

Yepp... :wall:

...:cat: ...