Update of /cvsroot/instantobjects/Source/Brokers/DBX
In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv4611/Brokers/DBX
Modified Files:
InstantDBX.pas
Log Message:
Fixed inherited call chain in InternalBuildDatabase
Index: InstantDBX.pas
===================================================================
RCS file: /cvsroot/instantobjects/Source/Brokers/DBX/InstantDBX.pas,v
retrieving revision 1.2
retrieving revision 1.3
diff -C2 -d -r1.2 -r1.3
*** InstantDBX.pas 29 Jul 2004 20:43:13 -0000 1.2
--- InstantDBX.pas 16 Sep 2004 11:32:56 -0000 1.3
***************
*** 84,88 ****
procedure InternalStartTransaction; override;
function ParamByName(const AName: string): string;
! procedure InternalBuildDatabase(Scheme: TInstantScheme); override; //CB
public
class function ConnectionDefClass: TInstantConnectionDefClass; override;
--- 84,88 ----
procedure InternalStartTransaction; override;
function ParamByName(const AName: string): string;
! procedure InternalBuildDatabase(Scheme: TInstantScheme); override;
public
class function ConnectionDefClass: TInstantConnectionDefClass; override;
***************
*** 255,262 ****
end;
! procedure TInstantDBXConnector.InternalBuildDatabase(
! Scheme: TInstantScheme);
begin
- Scheme.BlobStreamFormat := BlobStreamFormat; //CB
inherited;
end;
--- 255,260 ----
end;
! procedure TInstantDBXConnector.InternalBuildDatabase(Scheme: TInstantScheme);
begin
inherited;
end;
|