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