* Fix charsize for ftGUID field (also string field), bug ID #0037350

git-svn-id: trunk@45791 -

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;