Pointer auf Oberklassen

[Phoenix]

An der Stelle wird Dir nichts anderes übrig bleiben, als eine Wrapper-Klasse zu schreiben, die eine TQuery und eine TIBQuery als Member-Variablen hat.

Du übergibst einen TDataSet-Pointer.

Je nach dem, was übergeben wird (If myDataSet is TIBQuery oder eben If myDataSet is TQuery..) musst Du die jeweilige interne Variable belegen und alle Aufrufe inten auf das entsprechende Objekt umleiten.

Das ist so die einfachste Möglichkeit die ich sehe.