ViewVC Help

View File | Revision Log | Show Annotations | Download File | View Changeset | Root Listing

root/public/ibx/trunk/fbintf/client/3.0/FB30Array.pas

Comparing ibx/trunk/fbintf/client/3.0/FB30Array.pas (file contents):
Revision 420 by tony, Mon Jan 10 10:13:17 2022 UTC vs.
Revision 421 by tony, Sat Oct 21 14:22:28 2023 UTC

#	Line 100 | Line 100 | type
100
101		implementation
102
103	<	uses FBAttachment, FB30Statement;
103	>	uses IBUtils, FBAttachment, FB30Statement{$ifdef WINDOWS}, Windows{$endif};
104
105		const
106		sGetArrayMetaData = 'Select F.RDB$FIELD_LENGTH, F.RDB$FIELD_SCALE, F.RDB$FIELD_TYPE, '+
#	Line 131 | Line 131 | var stmt: IStatement;
131		CharWidth: integer;
132		begin
133		CharWidth := 0;
134	<	RelationName := AnsiUpperCase(RelationName);
135	<	ColumnName := AnsiUpperCase(ColumnName);
134	>	RelationName := SafeAnsiUpperCase(RelationName);
135	>	ColumnName := SafeAnsiUpperCase(ColumnName);
136		stmt := TFB30Statement.Create(aAttachment as TFB30Attachment,aTransaction,
137		sGetArrayMetaData ,aAttachment.GetSQLDialect);
138		with stmt do
#	Line 276 | Line 276 | begin
276		0,nil,
277		FBufSize,BytePtr(FBuffer)
278		);
279	<	Check4DataBaseError;
279	>	Check4DataBaseError(ConnectionCodePage);
280		end;
281		SignalActivity;
282		end;
#	Line 292 | Line 292 | begin
292		FBufSize,BytePtr(FBuffer)
293		);
294		if not Force then
295	<	Check4DataBaseError;
295	>	Check4DataBaseError(ConnectionCodePage);
296		end;
297		SignalActivity;
298		end;

Diff Legend

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