Connection übergeben verschiedene Datenbanken

[matashen]

Hallo zusammen,

ich habe für Datenbankzugriffe eine kleine Funktionssammlung

um verschiedene Connections anzusprechen hab ich bisher mehrere procedure geschrieben und per Overload parallel betrieben.

Ich möchte aber gern die prozeduren zusammenführen da diese sich nur unterschieden in der Art der Connection

z.B.

Delphi-Quellcode:

procedure MeinZugriff(eineVerbindung:TAdoConnection;irgendwas:String);
var myquery:TAdoQuery;
..
myquery:=TAdoQuery.create;
myquery.connection:=eineVerbindung;

procedure MeinZugriff(eineVerbindung:TFDConnection;irgendwas:String);
var myquery:TFDQuery;
..
myquery:=TFDQuery.create;
myquery.connection:=eineVerbindung;

was ich gern machen würde wär sowas wie

Delphi-Quellcode:

procedure MeinZugriff(eineVerbindung:TCustomConnection;irgendwas:String);
var myquery:????;
..
if eineVerbindung is TFDConnection then myquery:=????.
if eineVerbindung is TAdoConnection then myquery:=????.
createmyquery.connection:=eineVerbindung;

und bei den ???? weis ich nicht wie ich das anstellen soll.


Danke schon mal für Ideen.