ViewVC Help

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

root/public/ibx/branches/udr/client/FBSQLData.pas

Comparing ibx/branches/udr/client/FBSQLData.pas (file contents):
Revision 371 by tony, Wed Jan 5 15:21:22 2022 UTC vs.
Revision 379 by tony, Mon Jan 10 10:08:03 2022 UTC

#	Line 535 | Line 535 | type
535		{ISQLParams}
536		function getCount: integer;
537		function getSQLParam(index: integer): ISQLParam;
538	<	function ByName(Idx: AnsiString): ISQLParam ;
538	>	function ByName(Idx: AnsiString): ISQLParam ; virtual;
539		function GetModified: Boolean;
540		function GetHasCaseSensitiveParams: Boolean;
541		function GetStatement: IStatement;
#	Line 560 | Line 560 | type
560		constructor Create(aResults: TSQLDataArea);
561		{IResults}
562		function getCount: integer;
563	<	function ByName(Idx: AnsiString): ISQLData;
563	>	function ByName(Idx: AnsiString): ISQLData; virtual;
564		function getSQLData(index: integer): ISQLData;
565		procedure GetData(index: integer; var IsNull:boolean; var len: short; var data: PByte);
566		function GetStatement: IStatement;
#	Line 874 | Line 874 | begin
874		Scale := 0;
875		if  (SQLType <> SQL_VARYING) and (SQLType <> SQL_TEXT) then
876		IBError(ibxeUnableTosetaTextType,[Index,Name,TSQLDataItem.GetSQLTypeName(SQLType)]);
877	+	if not CanChangeMetaData and (Length(aValue) > GetSize) then
878	+	IBError(ibxeStringOverflow,[Length(aValue),DataLength]);
879		SetSQLData(PByte(PAnsiChar(FVarString)),Length(aValue));
880		end;
881

Comparing ibx/branches/udr/client/FBSQLData.pas (property svn:eol-style):
Revision 371 by tony, Wed Jan 5 15:21:22 2022 UTC vs.
Revision 379 by tony, Mon Jan 10 10:08:03 2022 UTC

#	Line 0 | Line 1
1	+	native

Diff Legend

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