问答文章1 问答文章501 问答文章1001 问答文章1501 问答文章2001 问答文章2501 问答文章3001 问答文章3501 问答文章4001 问答文章4501 问答文章5001 问答文章5501 问答文章6001 问答文章6501 问答文章7001 问答文章7501 问答文章8001 问答文章8501 问答文章9001 问答文章9501

怎么样得到文件的大小?(DELPHI)

发布网友 发布时间:2022-05-14 05:56

我来回答

2个回答

热心网友 时间:2023-10-05 13:43

大概有这些方法可以获得文件大小
FileSizeByName(需要引用IdGlobal单元)
GetFileSize
FileSize(不能获得正在使用的文件大小)
FileSeek
TFileStream.Size
下面是使用例子
1。FileSizeByName(需要引用IdGlobal单元)
begin
if
OpenDialog1.Execute
then
begin
ShowMessage(IntToStr(FileSizeByName(OpenDialog1.Filename)));
end;
2。GetFileSize
var
FileHandle:integer;
begin
if
OpenDialog1.Execute
then
begin
FileHandle
:=
FileOpen(OpenDialog1.FileName,
0);
ShowMessage(IntToStr(GetFileSize(FileHandle,
nil)));
FileClose(FileHandle);
end;
3。FileSize(不能获得正在使用的文件大小)
var
f:
file;
begin
if
OpenDialog1.Execute
then
begin
AssignFile(f,
OpenDialog1.FileName);
Reset(f,
1);
ShowMessage(IntToStr(FileSize(f)));
CloseFile(f);
end;
4。FileSeek
var
FileHandle:integer;
begin
if
OpenDialog1.Execute
then
begin
FileHandle
:=
FileOpen(OpenDialog1.FileName,
0);
ShowMessage(IntToStr(FileSeek(FileHandle,0,2)));
FileClose(FileHandle);
end;
5。TFileStream.Size
var
FS:
TFileStream;
begin
if
OpenDialog1.Execute
then
begin
FS
:=
TFileStream.Create(OpenDialog1.FileName,
fmShareDenyNone);
ShowMessage(IntToStr(FS.Size));
FS.Free;
end;
另在IdGlobalProtocols中有个FileSizeByName()的函数。

热心网友 时间:2023-10-05 13:43

右键点击文件,在出来的菜单点“属性”,文件大小就出来了
声明声明:本网页内容为用户发布,旨在传播知识,不代表本网认同其观点,若有侵权等问题请及时与本网联系,我们将在第一时间删除处理。E-MAIL:11247931@qq.com
打印机硒鼓安装方法及步骤 如何安装新硒鼓? 我现在很困惑该不该和女友继续发展下去 电脑上字体怎么安装方法简单易行的字体安装步骤及技巧 网页字体显示不出.怎么办? 如何添加电脑上没有的字体解决电脑字体限制增加字体选择多样性_百度知 ... 不有效字体文件 电脑字体识别不了 梦见身上煤炭黑的长辈给我钥匙的预兆 株洲最值得一去的古镇 获取文件大小的几种方法 孕妇可以用八杯水防晒霜吗 雅丽洁八杯水化妆品孕妇能用吗 有谁买过上海财富兴园的房子,我听别人说那房质量不是很好,有谁买了的可以说说看吗 各楼层的单位面积质量分布包括构件自重吗 如何给快手里的手机号解绑啊! 墙体透寒如何解决?做外墙保温可以完全治愈吗?室内室外都应该做些什么?谢谢! 如何将快手手机号解绑呢? 房屋漏水维修什么样才算修好?多长时间内不漏才算好?有没有相关法律法规? 外墙渗水注浆有没有什么新材料? 上海装修投诉!! 外墙渗水可不可以在内维修 有谁知道上海市新建住宅,幕墙玻璃(渗水)保修期?幕墙玻璃属于外墙面吗?住户该向谁保修? linux 除了防火墙 怎么限制端口 你好,能把你的《单片机接口模块应用与开发实例详解》的完整文档发给我吗?谢谢。285815616@qq.com 电压叠加后的总电压是? 有关电流源求电压的题 准备做一个LED灯,总共24个LED。用在监控摄像头上。 LED规格:工作电压1.8V-2.2V,电压到1.3V左右就不亮了 两个不同规格的灯泡并联,则它们电源的最大电压应该是小电压,对不对? 两个电压相同的电源并联,电压为什么不变 js页面如何获取file文件大小 c语言如何通过文件属性获取文件大小知道 CInternetFile怎么获取文件大小 java 中怎么获取已经存在文件大小啊 jquery怎么获取file的大小 c代码中如何获取一个文件的字节数~~ 每次换季收拾衣服你需要多久时间?有什么收纳技巧吗? 为什么现在物价上涨得那么厉害? 下半年物价确实进入上涨趋势,导致物价上涨的原因有哪些? 面对物价上涨,消费者应该怎么办? 韩国青椒一斤约27元,物价为何会出现上涨的趋势? 物价上涨会成为持续趋势吗? 为什么物价上涨是最终趋势 歌词开头是往事如风是什么歌 中国未来物价上涨趋势 如何看待物价上涨? 如果物价上涨了,能否推动工资上涨? 如何看待中国物价的上涨? 应如何看待中国目前物价大幅度上涨的现象?大神们帮帮忙 price是什么意思呀!