[Lazarus] Unpack of PHP

[silvioprog]

2013/2/4 David Knaack <davidknaack at gmail.com>

> I may not understand the scope of your question, but could you use the
> swap function?
>
> http://www.freepascal.org/docs-html/rtl/system/swap.html
>
> Like so (edited in email, not compile checked):
>
> function ReadMWord(AStream: TStream): Word;
>   var
>     MW: Word
>   begin
>     AStream.Read(MW, SizeOf(Word));
>     Result := Swap(MW);
>   end;
>

Perfect! :)

Thank you very much!

-- 
Silvio Clécio
My public projects - github.com/silvioprog
-------------- next part --------------
An HTML attachment was scrubbed...
URL: <http://lists.lazarus-ide.org/pipermail/lazarus/attachments/20130204/f79b458b/attachment-0003.html>