ViewVC Help

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

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

Comparing ibx/trunk/fbintf/client/3.0/FB30Statement.pas (file contents):
Revision 59 by tony, Mon Mar 6 10:20:02 2017 UTC vs.
Revision 60 by tony, Mon Mar 27 15:21:02 2017 UTC

#	Line 343 | Line 343 | begin
343		else
344		result := FCharSetID;
345		end;
346	+	result := result;
347		end;
348
349		function TIBXSQLVAR.GetCodePage: TSystemCodePage;
350		begin
351		result := CP_NONE;
352	<	with Firebird30ClientAPI do
352	>	with Statement.GetAttachment do
353		CharSetID2CodePage(GetCharSetID,result);
354		end;
355
#	Line 738 | Line 739 | begin
739		FSQLNullIndicator := nil;
740		FScale := aMetaData.getScale(StatusIntf,i);
741		Check4DataBaseError;
742	<	FCharSetID :=  aMetaData.getCharSet(StatusIntf,i);
742	>	FCharSetID :=  aMetaData.getCharSet(StatusIntf,i) and $FF;
743		Check4DataBaseError;
744		end;
745		end;
#	Line 812 | Line 813 | begin
813		FSQLNullIndicator := nil;
814		FScale := aMetaData.getScale(StatusIntf,i);
815		Check4DataBaseError;
816	<	FCharSetID :=  aMetaData.getCharSet(StatusIntf,i);
816	>	FCharSetID :=  aMetaData.getCharSet(StatusIntf,i) and $FF;
817		Check4DataBaseError;
818		end;
819		end;

Diff Legend

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