如何得到OpenDialog所打开文件的大小，在edit1.text中显示出来

Question

如何得到OpenDialog所打开文件的大小，在edit1.text中显示出来

Answer 1

procedure TForm1.Button1Click(Sender: TObject);
var
  LStream: TMemoryStream;
  LFileName: string;  //由打开文件对话框指定的文件名
begin
LStream := TMemoryStream.Create;
    if OpenDialog1.Execute then
    begin
      LFileName := OpenDialog1.FileName ;
      LStream.LoadFromFile(LFileName);
      edit1.Text :=inttostr(LStream.Size);
    end;
    end;
end.

Answer 2

uses
  IdGlobal;
.....
  if opendialog1.Execute then
    edit1.Text := floattostr(FileSizeByName(opendialog1.FileName)/(1024*1024))+'M';揭帖吧，:)

Answer 3

function GetFileSize(const FileName: String): LongInt;
var
  SearchRec: TSearchRec;
begin
  if FindFirst(ExpandFileName(FileName), faAnyFile, SearchRec) = 0 then
    Result := SearchRec.Size
  else
    Result := -1;
end;procedure TForm1.Button1Click(Sender: TObject);
begin
  OpenDialog1.Execute;
  Edit1.text:=IntToStr(GetFileSize(OpenDialog1.FileName));
end;