[Lazarus] Unpack of PHP

silvioprog silvioprog at gmail.com
Mon Feb 11 06:49:15 CET 2013


2013/2/6 Marco van de Voort <marcov at stack.nl>
[...]

> That's so boring! In FPC 2.7.1 this should work:
>
> uses
>    Classes,
>    SysUtils,
>    StreamEx;
>  var
>    VFile: TFileStream;
>  begin
>    VFile := TFileStream.Create('data.ascii', fmOpenRead or
>  fmShareDenyWrite);
>    try
>      VFile.Seek(2, 0);
>      WriteLn(VFile.ReadWordBE);
>      VFile.Seek(6, 0);
>      WriteLn(VFile.ReadWordBE);
>   finally
>    VFile.Free;
>   end;
> end.
>

ReadWordBE is very nice. Thank you very much guy! :)

-- 
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/20130211/517099a7/attachment-0003.html>


More information about the Lazarus mailing list