Alle datensensitiven Controls finden?

[nachti1505]

Delphi-Quellcode:

uses TypInfo;
...

  for i := 0 to ComponentCount -1 do
  begin
    if IsPublishedProp(Components[i], 'DataSource') then begin
  end;

Unter der Vorraussetzung, dass jede DB-Sensitive Komponente nen PubslihedProperty 'DataSource' hat...