paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-04-21 12:49:33 +02:00
Code Issues Packages Projects Releases Wiki Activity

fcl-db: base: cosmetic

Browse Source 
git-svn-id: trunk@46357 -
This commit is contained in:
lacak 2020-08-11 06:56:43 +00:00
parent 8a0ed03ace
commit 8eda8075f8
1 changed files with 7 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -177,7 +177,8 @@ end;
function TFieldDef.GetCharSize: Word;
begin
case FDataType of
ftGUID: Result:=1;
ftGuid:
Result := 1;
ftString, ftFixedChar:
case FCodePage of
CP_UTF8: Result := 4;
@ -3349,11 +3350,6 @@ begin
SetAsString(GuidToString(AValue));
end;
function TVariantField.GetDefaultWidth: Integer;
begin
Result := 15;
end;
{ TVariantField }
constructor TVariantField.Create(AOwner: TComponent);
@ -3367,6 +3363,11 @@ begin
{ empty }
end;
function TVariantField.GetDefaultWidth: Integer;
begin
Result := 15;
end;
function TVariantField.GetAsBoolean: Boolean;
begin
Result := GetAsVariant;