各位大大： 有要事請教各位: 我用AssignFile(Input,openDialog1.FileName); 這個Function載入了Input檔案(檔案格式為Txt/bmp/avi/wav) 1.是否用sizeof()可確定檔案的大小(byte的個數)? 若是可以，該怎樣操作呢?我是取得integer或SmallInt(Type) 2.若不用Sizeof()函數，那麼該如何編寫取得才對呢? 請教各位大大 jl 平常心活著

------
平常心活著

jl您好..請參考以下SAMPLE

procedure TForm1.Button1Click(Sender: TObject);
var
   f: file of Byte;
   size: Longint;
   S: string;
begin
  if OpenDialog1.Execute then
  begin
    AssignFile(f, OpenDialog1.FileName);
    Reset(f);
    size := FileSize(f);
    S := 'File size in bytes: '   IntToStr(size);
    showmessage(S);
    CloseFile(f);
  end;
end;

GOOD LUCK

To geniustom: 謝謝您的解答，問題得已解決， 但奇怪的事發生了，我是在看討論區的網頁得知您回覆，並沒有收到e-mail 可能我的e-mail已滿或....... 總之，謝謝您的解答 From :jl 平常心活著

------
平常心活著