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

Comparing ibx/branches/udr/client/FBSQLData.pas (file contents):
Revision 371 by tony, Wed Jan 5 15:21:22 2022 UTC vs.
Revision 372 by tony, Wed Jan 5 16:20:22 2022 UTC

# Line 870 | Line 870 | begin
870    if SQLType = SQL_BLOB then
871      SetMetaSize(GetAttachment.GetInlineBlobLimit);
872    if CanChangeMetaData then
873 <    SQLType := GetDefaultTextSQLType;
873 >    SQLType := GetDefaultTextSQLType
874 >  else
875 >  if Length(aValue) > DataLength then
876 >    IBError(ibxeStringOverflow,[Length(aValue),DataLength]);
877    Scale := 0;
878    if  (SQLType <> SQL_VARYING) and (SQLType <> SQL_TEXT) then
879      IBError(ibxeUnableTosetaTextType,[Index,Name,TSQLDataItem.GetSQLTypeName(SQLType)]);

Diff Legend

Removed lines
+ Added lines
< Changed lines
> Changed lines