Hallo,
schon beim Umstieg auf FIBPlus hättest die
den Aufwand machen sollen und bridge pattern benutzt.
Bsp mit abgeleiteten Klassen
Delphi-Quellcode:
type
TBaseQuery=class
function Open: Boolean; virtual; abstract;
end;
type
TPdxQuery=class(TBaseQuery)
FQuery: TQuery;
function Open: Boolean; override;
end;
type
TIBQuery=class(TBaseQuery)
FQuery: TIBQuery;// oder was auch immer
function Open: Boolean; override;
end;
function CreateQuery: TBaseQuery;
begin
{$IFDEF DB_IB} // oder wie auch immer
Result:= TIBQuery.Create(NIL);
{$ENDIF}
{$IFDEF DB_Pdx} // oder wie auch immer
Result:= TQuery.Create(NIL);
{$ENDIF}
end;
Heiko