* Merging revisions r45791 from trunk:

    ------------------------------------------------------------------------
    r45791 | michael | 2020-07-15 12:56:31 +0200 (Wed, 15 Jul 2020) | 1 line
    
    * Fix charsize for ftGUID field (also string field), bug ID #0037350
    ------------------------------------------------------------------------

git-svn-id: branches/fixes_3_2@46596 -

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

@@ -177,6 +177,7 @@ end;
 function TFieldDef.GetCharSize: Word;
 begin
   case FDataType of
+   ftGUID: Result:=1;
    ftString, ftFixedChar:
      case FCodePage of
        CP_UTF8: Result := 4;