From: Nando D. <na...@us...> - 2004-09-16 11:33:06
|
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; |