From a5a7d2cc911841b0f588aa1f7d8484b6bc0d2ac4 Mon Sep 17 00:00:00 2001
From: michael <michael@freepascal.org>
Date: Wed, 15 Jul 2020 10:56:31 +0000
Subject: [PATCH] * Fix charsize for ftGUID field (also string field), bug ID
#0037350
git-svn-id: trunk@45791 -
---
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;