Aus Datenmodul mit findcomponente alle ADO-Tables finden

[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