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