Update of /cvsroot/instantobjects/Source/Brokers/BDE
In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv4135/Brokers/BDE
Modified Files:
InstantBDE.pas
Log Message:
Fixed inherited call chain in InternalBuildDatabase
Index: InstantBDE.pas
===================================================================
RCS file: /cvsroot/instantobjects/Source/Brokers/BDE/InstantBDE.pas,v
retrieving revision 1.2
retrieving revision 1.3
diff -C2 -d -r1.2 -r1.3
*** InstantBDE.pas 29 Jul 2004 20:43:13 -0000 1.2
--- InstantBDE.pas 16 Sep 2004 11:30:48 -0000 1.3
***************
*** 343,349 ****
I: Integer;
begin
if not Assigned(Scheme) then
Exit;
- Scheme.BlobStreamFormat := BlobStreamFormat; //CB
with Scheme do
for I := 0 to Pred(TableMetadataCount) do
--- 343,349 ----
I: Integer;
begin
+ inherited;
if not Assigned(Scheme) then
Exit;
with Scheme do
for I := 0 to Pred(TableMetadataCount) do
|
