Update of /cvsroot/instantobjects/Source/Brokers/NexusDb
In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv5797/Brokers/NexusDb
Modified Files:
InstantNexusDb.pas
Log Message:
Fixed inherited call chain in InternalBuildDatabase
Index: InstantNexusDb.pas
===================================================================
RCS file: /cvsroot/instantobjects/Source/Brokers/NexusDb/InstantNexusDb.pas,v
retrieving revision 1.3
retrieving revision 1.4
diff -C2 -d -r1.3 -r1.4
*** InstantNexusDb.pas 6 Aug 2004 14:47:47 -0000 1.3
--- InstantNexusDb.pas 16 Sep 2004 11:38:08 -0000 1.4
***************
*** 355,362 ****
I: Integer;
begin
/// CodeSite.SendMsg('internal build db');
if not Assigned(Scheme) then
Exit;
- Scheme.BlobStreamFormat := BlobStreamFormat; //CB
with Scheme do
for I := 0 to Pred(TableMetadataCount) do
--- 355,362 ----
I: Integer;
begin
+ inherited;
/// CodeSite.SendMsg('internal build db');
if not Assigned(Scheme) then
Exit;
with Scheme do
for I := 0 to Pred(TableMetadataCount) do
|
