会者不难－－关于按指定格式读写二进制文件中的指定位置

Question

var
  MyFile : TFileStream;
  Buf : integer;
  Fhandle : integer;
begin
    MyFile := TFileStream.Create('a.txt',fmOpenRead);
    try
      MyFile.Position := 0;
      MyFile.Seek(-sizeof(integer),soFromEnd);
      MyFile.Read(Buf,sizeof(integer));
      showMessage(inttostr(buf));
    finally
      MyFile.Free;
    end;    {Fhandle := FileOpen('a.txt',fmOpenRead);
    if Fhandle <> 0 then
    begin
      try
        FileSeek(            );
        FileRead(fhandle,buf,sizeof(buf));
      finally
        FileClose(Fhandle);
      end;
    end;
    ShowMessage(inttostr(buf)); }
end;

Answer 1

谢谢，我已经在大富翁论坛得到解决了，和你的差不多，给分！