fcl-db: base: cosmetic

git-svn-id: trunk@46357 -

packages/fcl-db/src/base/fields.inc

@@ -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;