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

fcl-db: base: set storage specifiers - default 0 - for TFieldDef.Precision and TFieldDef.Size.

Browse Source 
(TFieldDef.Precision is initialised to -1 which differs from Delphi where it is 0)

git-svn-id: trunk@30610 -
This commit is contained in:
lacak 2015-04-16 11:37:28 +00:00
parent f787468412
commit 98c059f3ec
2 changed files with 9 additions and 11 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -178,7 +178,7 @@ type
procedure SetSize(const AValue: Integer);
procedure SetRequired(const AValue: Boolean);
public
constructor create(ACollection : TCollection); override;
constructor Create(ACollection : TCollection); override;
constructor Create(AOwner: TFieldDefs; const AName: string;
ADataType: TFieldType; ASize: Integer; ARequired: Boolean; AFieldNo: Longint); overload;
destructor Destroy; override;
@ -191,8 +191,8 @@ type
Published
property Attributes: TFieldAttributes read FAttributes write SetAttributes default [];
property DataType: TFieldType read FDataType write SetDataType;
property Precision: Longint read FPrecision write SetPrecision;
property Size: Integer read FSize write SetSize;
property Precision: Longint read FPrecision write SetPrecision default 0;
property Size: Integer read FSize write SetSize default 0;
end;
TFieldDefClass = Class of TFieldDef;
@ -314,7 +314,7 @@ type
procedure SetLookup(const AValue: Boolean);
procedure SetReadOnly(const AValue: Boolean);
procedure SetVisible(const AValue: Boolean);
function IsDisplayStored : Boolean;
function IsDisplayLabelStored : Boolean;
function IsDisplayWidthStored: Boolean;
function GetLookupList: TLookupList;
procedure CalcLookupValue;
@ -429,7 +429,7 @@ type
property CustomConstraint: string read FCustomConstraint write FCustomConstraint;
property ConstraintErrorMessage: string read FConstraintErrorMessage write FConstraintErrorMessage;
property DefaultExpression: string read FDefaultExpression write FDefaultExpression;
property DisplayLabel : string read GetDisplayName write SetDisplayLabel stored IsDisplayStored;
property DisplayLabel : string read GetDisplayName write SetDisplayLabel stored IsDisplayLabelStored;
property DisplayWidth: Longint read GetDisplayWidth write SetDisplayWidth stored IsDisplayWidthStored;
property FieldKind: TFieldKind read FFieldKind write FFieldKind;
property FieldName: string read FFieldName write FFieldName;

10
packages/fcl-db/src/base/fields.inc
View File

@ -99,11 +99,9 @@ begin
Result.FFieldNo:=Self.FieldNo;
Result.SetFieldType(DataType);
Result.FReadOnly:=(faReadOnly in Attributes);
{$ifdef dsdebug}
Writeln ('TFieldDef.CreateField : Trying to set dataset');
{$endif dsdebug}
{$ifdef dsdebug}
Writeln ('TFieldDef.CreateField : Result Fieldno : ',Result.FieldNo,'; Self : ',FieldNo);
Writeln ('TFieldDef.CreateField : Trying to set dataset');
{$endif dsdebug}
Result.Dataset:=TFieldDefs(Collection).Dataset;
If (Result is TFloatField) then
@ -626,7 +624,7 @@ begin
Result:=FFieldName;
end;
function TField.IsDisplayStored: Boolean;
function TField.IsDisplayLabelStored: Boolean;
begin
Result:=(DisplayLabel<>FieldName);
@ -2494,8 +2492,8 @@ end;
function TBCDField.GetDefaultWidth: Longint;
begin
if precision > 0 then result := precision
else result := 10;
if Precision > 0 then Result := Precision
else Result := 10;
end;
procedure TBCDField.GetText(var TheText: string; ADisplayText: Boolean);