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

示例代码如下：

首先，uses 添加 IdGlobalProtocols。

 2

function TForm1GetFileSizeStr(fName:string):string;

var nSize: Integer;

begin

  nSize := FileSizeByName(fName);

  if nSize > 1073741824 then

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

  else if nSize > 1048576 then

    Result := FormatFloat('###,##000M', 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 TForm1Button1Click(Sender: TObject);

begin

  ShowMessage('文件大小是： ' + GetFileSizeStr('d:\tablemdb'));

end;

示例截图：

C#获取文件大小，参考代码如下：

foreach (string FileName in FileNames)

{

//取得文件大小

FileInfo MyFileInfo = new FileInfo(FileName);

float MyFileSize = (float)MyFileInfoLength / (1024  1024);

}

/  解题思路： 以只读方式打开某一文件，然后将文件指针定位在文件结尾的位置，利用ftell函数返回指针的在文件中的相对位置即可。

/

#include "stdioh"

main()

{ FILE fp;   /定义文件指针/

  long cnt;   /定义变量cnt用来存储文件大小数据/

  fp=fopen("c:\\1txt","r");   /此处请填写测试文件的地址，并以只读("r")方式打开文件/

  if( fp==NULL )  /如果打开的文件不存在，则退出/

     { exit(0);

       printf("文件打开失败！");

     }

  fseek(fp,0L,SEEK_END);   /利用fseek函数将指针定位在文件结尾的位置/

  cnt=ftell(fp);   /利用ftell函数返回指针相对于文件开头的位置，以字节计算/

  printf("文件所占的字节数为%ld个\n",cnt);   /进行输出/

}

获得的文件：string fName = fileuploadFileName;（这里得到的包含文件路径的全名） 文件名：fNameSubstring(fNameLastIndexOf("//") + 1);（这里得到的是真正的文件名）

以上就是关于delphi 如何获取文件的大小和类型全部的内容，包括:delphi 如何获取文件的大小和类型、C# 中获取文件大小的问题、如何用C语言获取文件的大小等相关内容解答，如果想了解更多相关内容，可以关注我们，你们的支持是我们更新的动力！