<div dir="ltr">2013/2/6 Marco van de Voort <span dir="ltr"><<a href="mailto:marcov@stack.nl" target="_blank">marcov@stack.nl</a>></span><div>[...]<br><div class="gmail_extra"><div class="gmail_quote"><blockquote class="gmail_quote" style="margin:0px 0px 0px 0.8ex;border-left-width:1px;border-left-color:rgb(204,204,204);border-left-style:solid;padding-left:1ex">

That's so boring! In FPC 2.7.1 this should work:<br>
<br>
uses<br>
   Classes,<br>
   SysUtils,<br>
   StreamEx;<br>
<div class="im"> var<br>
   VFile: TFileStream;<br>
 begin<br>
   VFile := TFileStream.Create('data.ascii', fmOpenRead or<br>
 fmShareDenyWrite);<br>
   try<br>
     VFile.Seek(2, 0);<br>
</div>     WriteLn(VFile.ReadWordBE);<br>
     VFile.Seek(6, 0);<br>
     WriteLn(VFile.ReadWordBE);<br>
<div class="im">  finally<br>
   VFile.Free;<br>
  end;<br>
end.</div></blockquote></div><div><br></div><div>ReadWordBE is very nice. Thank you very much guy! :)<br></div><div><br></div>-- <br>Silvio Clécio<br>My public projects - <a href="http://github.com/silvioprog" target="_blank">github.com/silvioprog</a>
</div></div></div>