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

git-svn-id: trunk@45791 -
2025-04-14 09:19:45 +02:00 · 2020-07-15 10:56:31 +00:00 · 2020-07-15 10:56:31 +00:00 · a5a7d2cc91
commit a5a7d2cc91
parent 9cae1830e2
1 changed files with 1 additions and 0 deletions
--- 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;