paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-08-09 15:46:00 +02:00
Code Issues Packages Projects Releases Wiki Activity

* Allow a size of 0 in a stringfield

Browse Source 
git-svn-id: trunk@8914 -
This commit is contained in:
joost 2007-10-23 11:45:40 +00:00
parent 8a66698bc4
commit 41e1da6fb7
1 changed files with 4 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
packages/fcl-db/src/fields.inc
View File

@ -956,7 +956,10 @@ end;
class procedure TStringField.CheckTypeSize(AValue: Longint); class procedure TStringField.CheckTypeSize(AValue: Longint);
begin begin
If (AValue<1) or (AValue>dsMaxStringSize) Then // A size of 0 is allowed, since for example Firebird allows
// a query like: 'select '' as fieldname from table' which
// results in a string with size 0.
If (AValue<0) or (AValue>dsMaxStringSize) Then
databaseErrorFmt(SInvalidFieldSize,[AValue]) databaseErrorFmt(SInvalidFieldSize,[AValue])
end; end;