paweld/pas2js
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/pas2js.git synced 2025-08-23 07:39:10 +02:00
Code Issues Packages Projects Releases Wiki Activity

* Fix SkipValue for string values

Browse Source
This commit is contained in:
michael 2021-06-21 11:39:43 +00:00
parent 5a942fb610
commit 7d544eafc0
1 changed files with 3 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
packages/rtl/classes.pas
View File

@ -6923,8 +6923,10 @@ begin
vaInt64, vaInt64,
vaDouble: vaDouble:
SkipBytes(8); SkipBytes(8);
vaString, vaIdent: vaIdent:
ReadStr; ReadStr;
vaString:
ReadString(vaString);
vaBinary: vaBinary:
begin begin
Count:=LongInt(ReadDWord); Count:=LongInt(ReadDWord);