Sign in Join

Live chat for Free Pascal, Lazarus, Delphi and every Pascal programmer.

Mailing lists / lazarus / 2011-10

TLRSObjectReader.SkipValue

2 messages · 2 people ·

Reply by email Subscribe to this list Your subscription

Read-only archive. Use j and k to move between messages.

Hans-Peter Diettrich

I'm not sure, but the handling of Wide/Unicode strings looks wrong:

     vaBinary, vaLString, vaWString{$IFNDEF VER2_2}, vaUString{$ENDIF}:
       begin
         Count:=ReadIntegerContent;
         SkipBytes(Count);
       end;

For WideChars Count*2 bytes have to be skipped, according to e.g. ReadWideString.

DoDi

Reply by email

Mattias Gaertner
to Hans-Peter Diettrich

?

Hans-Peter Diettrich hat am 31. Oktober 2011 um 15:31 geschrieben:

Show quoted text 10 lines
I'm not sure, but the handling of Wide/Unicode strings looks wrong: ? ? ? vaBinary, vaLString, vaWString{$IFNDEF VER2_2}, vaUString{$ENDIF}: ? ? ? ? begin ? ? ? ? ? Count:=ReadIntegerContent; ? ? ? ? ? SkipBytes(Count); ? ? ? ? end; For WideChars Count*2 bytes have to be skipped, according to e.g. ReadWideString.?

Thanks for the hint.
Fixed in svn trunk.
?
Mattias
?
-------------- next part --------------
An HTML attachment was scrubbed...
URL: <http://lists.lazarus.freepascal.org/pipermail/lazarus/attachments/20111031/1e42f203/attachment.html>

Reply by email