TADOConnection auf anderem Datenmodul wie TADOQuery

[HolgerCW]

Sowas war ich mir auch gerade am basteln:

Delphi-Quellcode:

procedure TDM_Systemoptionen.DataModuleCreate(Sender: TObject);
var
 ADOQuery: TADOQuery;
 I: Integer;
begin

 inherited;
 DM_Systemoptionen := Self;

 For I := 0 to DM_Systemoptionen.ComponentCount - 1 do
 begin

  if DM_Systemoptionen.Components[I] is TADOQuery then
  begin

    ADOQuery := TADOQuery(DM_Systemoptionen.FindComponent(DM_Systemoptionen.Components[I].Name));

    ADOQuery.Connection := DM_Menu.ADO_Con_SYSDBP;

  end;

 end;

 //ADOQueryTreeView.Connection := DM_Menu.ADO_Con_SYSDBP;

end;

Aber besser ist es natürlich in eine Funktion zu packen damit ich das für alle Datenmodule nutzen kann, wie bei Dir.

Aber warum das bei TADO so ist ?