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:

markieren

Code:

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

Weiter weiß ich nicht

Versuch mal:

markieren

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

Danke. Klappt wunderbar

Zitat von General2003:

Danke. Klappt wunderbar

Dachte ich mir's doch

... ...

Muss das nicht heissen ...

markieren

Delphi-Quellcode:

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

weil ja Null-Basiert???


Gruss


Frank

Zitat von samson:

Muss das nicht heissen ...

Yepp...

... ...