paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-04-10 06:08:17 +02:00
Code Issues Packages Projects Releases Wiki Activity

LCL: fixed TLRSObjectReader.SkipValue vaWString, vaUString

Browse Source 
git-svn-id: trunk@33191 -
This commit is contained in:
mattias 2011-10-31 15:33:35 +00:00
parent 1354aed604
commit fa2dc2b245
1 changed files with 6 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
lcl/lresources.pp
View File

@ -4283,11 +4283,16 @@ begin
SkipBytes(10);
vaString, vaIdent:
ReadStr;
vaBinary, vaLString, vaWString{$IFNDEF VER2_2}, vaUString{$ENDIF}:
vaBinary, vaLString:
begin
Count:=ReadIntegerContent;
SkipBytes(Count);
end;
vaWString{$IFNDEF VER2_2}, vaUString{$ENDIF}:
begin
Count:=ReadIntegerContent;
SkipBytes(Count*2);
end;
vaSet:
SkipSetBody;
vaCollection: