2013/2/6 Marco van de Voort <mar...@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
--
_______________________________________________
Lazarus mailing list
Lazarus@lists.lazarus.freepascal.org
http://lists.lazarus.freepascal.org/mailman/listinfo/lazarus
