delphi 如何获取文件的大小和类型

示例代码如下：

首先，uses 添加 IdGlobalProtocols。

 2.

function TForm1.GetFileSizeStr(fName:string):string

var nSize: Integer

begin

  滚缓nSize := FileSizeByName(fName)

  if nSize > 1073741824 then

    Result := FormatFloat('###,##0.00G', nSize / 1073741824)

  else if nSize > 1048576 then

    Result := FormatFloat('###,##0.00M', nSize / 1048576)

  else if nSize 大宽模> 1024 then

    Result := FormatFloat('###,##00K', nSize / 1024)

  else

    Result := FormatFloat('###,#0B', nSize)

  if Length(Result) > 2 then

 巧梁   if Result[1] = '0' then

      Delete(Result, 1, 1)

end

procedure TForm1.Button1Click(Sender: TObject)

begin

  ShowMessage('文件大小是： ' + GetFileSizeStr('d:\table.mdb'))

end

示例截图：

添加一个openDialog组贺游档件

var rmFilestream:Tfilestream

xuanzewenjian:string

MemSize:integer

begin

if (openDialog1.Execute) and (openDialog1.FileName<>磨凳'') then

begin

xuanzewenjian:=OpenDialog1.FileName//获取文件名称及完整路径

rmFilestream:=TFileStream.Create(xuanzewenjian,fmopenRead)

rmFilestream.Position:=0

MemSize:= rmFilestream.Size/禅乱/获取文件大小

showmessage(inttostr(memsize))

end

end

---