本文介绍了一个简单的Delphi函数，用于获取指定文件的大小。通过创建并使用TMemoryStream对象加载文件，该函数能够返回文件的实际大小。
function TFrm_Main.GetMyFileSize(sFileName: String): Real;
var M:TMemoryStream;
begin
M:=TMemoryStream.Create;
M.LoadFromFile(sFileName);
Result:=M.Size;
M.Free;
end;
var M:TMemoryStream;
begin
M:=TMemoryStream.Create;
M.LoadFromFile(sFileName);
Result:=M.Size;
M.Free;
end;
扫一扫
被折叠的 条评论
为什么被折叠?
到【灌水乐园】发言
