Klasse für data aware components (Data Controls)

[dataspider]

Hi,

Ich denke, per RTTI ist der bessere Weg.
Hier ein Codeschnipsel zum Probieren:

Delphi-Quellcode:

uses
  TypInfo, DB...
...
procedure TForm1.Button1Click(Sender: TObject);
Var
  i: Integer;
  AObject: TObject;
Const
  PropName = 'DataSource';

begin
  for i := 0 to ControlCount - 1 do
  begin
    if IsPublishedProp(Controls[i], PropName) then
    begin
      AObject := GetObjectProp(Controls[i], PropName);
      if Assigned(AObject) then
        Memo1.Lines.Add(Controls[i].Name + ' = ' + (AObject as TDataSource).Name)
      else
        Memo1.Lines.Add(Controls[i].Name + ' = nil');
    end;
  end;
end;

Frank