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

* Proper CheckTypeSize check for TWideStringField

Browse Source 
* Allow non-zero Size for TNumericField to avoid problems with buggy TDataset descendents

git-svn-id: trunk@9865 -
This commit is contained in:
joost 2008-01-22 16:48:45 +00:00
parent d8755158b4
commit 88dc37a1e3
1 changed files with 1 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

1
packages/fcl-db/src/base/db.pas
View File

@ -494,6 +494,7 @@ type
FDisplayFormat : String;
FEditFormat : String;
protected
class procedure CheckTypeSize(AValue: Longint); override;
procedure RangeError(AValue, Min, Max: Double);
procedure SetDisplayFormat(const AValue: string);
procedure SetEditFormat(const AValue: string);