| # | 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)]); | |
| – | Removed lines |
| + | Added lines |
| < | Changed lines |
| > | Changed lines |