关于tFileStream的问题

Question

1、用fileStream打开一个文件后，怎么得到其大小，多少字节数？size属性不对2、我一段一段的读，读取的字节数超过大小时会抱错，怎么判断它已经移到末尾了呢？谁有tFileStream读写文件 这样的例子吗？先谢了

Answer 1

myfilestream:= TFileStream.Create(name+'tmd.tmd',fmOpenRead);
   SetLength(str,num);
   myfilestream.Position:= myfilestream.Size-num;
   myfilestream.Read(str[1],num);   tofile:= TFileStream.Create(name+'temp.temp',fmCreate);
   tofile.Write(str[1],num);
  // tofile.CopyFrom(myfilestream,myfilestream.Size-num);
   tofile.Free;
   myfilestream.Free;

Answer 2

myfilestream.Size 不对啊，值总是4

Answer 3

procedure TForm1.Button1Click(Sender: TObject);
var
  FS:TFileStream;
begin
  FS := TFileStream.Create('YourFullPathFileName',fmOpenRead);
  ShowMessage(IntToStr(FS.Size));
  FS.Free():
end;