ViewVC Help
View File | Revision Log | Show Annotations | Download File | View Changeset | Root Listing
root/public/ibx/trunk/fbintf/client/FBArray.pas
(Generate patch)

Comparing ibx/trunk/fbintf/client/FBArray.pas (file contents):
Revision 59 by tony, Mon Mar 13 09:51:56 2017 UTC vs.
Revision 60 by tony, Mon Mar 27 15:21:02 2017 UTC

# Line 108 | Line 108 | type
108    protected
109     FArrayDesc: TISC_ARRAY_DESC;
110     FCharSetID: integer;
111 +   FAttachment: IAttachment;
112     procedure LoadMetaData(aAttachment: IAttachment; aTransaction: ITransaction;
113                 relationName, columnName: AnsiString); virtual; abstract;
114     function NumOfElements: integer;
115    public
116     constructor Create(aAttachment: IAttachment; aTransaction: ITransaction;
117       relationName, columnName: AnsiString); overload;
118 <   constructor Create(SQLType: cardinal; tableName: AnsiString; columnName: AnsiString;
118 >   constructor Create(aAttachment: IAttachment;SQLType: cardinal; tableName: AnsiString; columnName: AnsiString;
119       Scale: integer; size: cardinal; charSetID: cardinal;
120       dimensions: cardinal; bounds: TArrayBounds); overload;
121     function GetCodePage: TSystemCodePage; virtual; abstract;
# Line 486 | Line 487 | constructor TFBArrayMetaData.Create(aAtt
487    aTransaction: ITransaction; relationName, columnName: AnsiString);
488   begin
489    inherited Create;
490 +  FAttachment := aAttachment;
491    LoadMetaData(aAttachment,aTransaction,relationName, columnName);
492   end;
493  
494 < constructor TFBArrayMetaData.Create(SQLType: cardinal; tableName: AnsiString;
495 <  columnName: AnsiString; Scale: integer; size: cardinal; charSetID: cardinal;
496 <  dimensions: cardinal; bounds: TArrayBounds);
494 > constructor TFBArrayMetaData.Create(aAttachment: IAttachment;
495 >  SQLType: cardinal; tableName: AnsiString; columnName: AnsiString;
496 >  Scale: integer; size: cardinal; charSetID: cardinal; dimensions: cardinal;
497 >  bounds: TArrayBounds);
498   var i: integer;
499   begin
500    inherited Create;
501 +  FAttachment := aAttachment;
502    with FArrayDesc do
503    begin
504      array_desc_dtype := GetDType(SQLType);

Diff Legend

– Removed lines
+ Added lines
< Changed lines
> Changed lines