* Fix SkipValue for string values

2025-04-06 11:47:47 +02:00 · 2021-06-21 11:39:43 +00:00 · 2021-06-21 11:39:43 +00:00 · 7d544eafc0
commit 7d544eafc0
parent 5a942fb610
1 changed files with 3 additions and 1 deletions
--- a/packages/rtl/classes.pas
+++ b/packages/rtl/classes.pas
@ -6923,8 +6923,10 @@ begin
    vaInt64,
    vaDouble:
      SkipBytes(8);
-    vaString, vaIdent:
+    vaIdent:
      ReadStr;
+    vaString:
+      ReadString(vaString);
    vaBinary:
      begin
        Count:=LongInt(ReadDWord);