From 1008ce57ed74d348ff3f2c32abeb8f1b34e4eea2 Mon Sep 17 00:00:00 2001
From: michael <michael@freepascal.org>
Date: Sun, 23 Aug 2020 09:23:38 +0000
Subject: [PATCH] * 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 | 1 +
 1 file changed, 1 insertion(+)

diff --git a/packages/fcl-db/src/base/fields.inc b/packages/fcl-db/src/base/fields.inc
index 39aea71f65..6bc83d2d90 100644
--- a/packages/fcl-db/src/base/fields.inc
+++ b/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;