-
本版专家分：1190结帖率 100% -
。。
-
本版专家分：8860 -
AssignFile(f, myfile);
FileSize(f);
-
本版专家分：2439
-
- GitHub 绑定GitHub第三方账户获取
-
-
//获取文件的大小，单位为字节
function GetFileSize(const FileName: string): integer;
function ReadFromTextFile(const FileName: string): string;
var
Size: integer;
Stream: TStream;
begin
Result := '';
if not FileExists(FileName) then Exit;
Stream := TFileStream.Create(FileName, fmOpenRead or fmShareDenyWrite);
try
Size := Stream.Size - Stream.Position;
SetString(Result, nil, Size);
Stream.Read(Pointer(Result)^, Size);
finally
Stream.Free;
end;
end;
var
sTemp: string;
begin
Result := 0;
if not FileExists(FileName) then Exit;
sTemp := ReadFromTextFile(FileName);
Result := Length(sTemp);
end;
-
本版专家分：2814
-
var
F: file of Byte;
nSize: Longint;
begin
AssignFile(F, 'C:\MyFile.txt');
Reset(F);
nSize := FileSize(F);
CloseFile(F);
end;
-
本版专家分：14382
-
- 黄花 2012年5月 Delphi大版内专家分月排行榜第二
-
-
蓝花
2012年4月 Delphi大版内专家分月排行榜第三
2011年8月 Delphi大版内专家分月排行榜第三
-
-
100分呀，我整理一下代码发给你， 你若要测试的源程序
可以直接联系我
-
版主本版专家分：132237
-
- 名人 2013年 荣获名人称号
-
- 状元 2012年 总版技术专家分年内排行榜第一
-
-
进士
2013年 总版技术专家分年内排行榜第七
2011年 总版技术专家分年内排行榜第五
2009年 总版技术专家分年内排行榜第九
-
- 金牌 2012年11月 总版技术专家分月排行榜第一
-
-
方法很多，可以用TSearchRec，还可以，用CreateFile，打开文件，然后用GetFileSize获取大小
-
版主本版专家分：132237
-
- 名人 2013年 荣获名人称号
-
- 状元 2012年 总版技术专家分年内排行榜第一
-
-
进士
2013年 总版技术专家分年内排行榜第七
2011年 总版技术专家分年内排行榜第五
2009年 总版技术专家分年内排行榜第九
-
- 金牌 2012年11月 总版技术专家分月排行榜第一
-
-
FFile_Handle:THandle;
//FSourceFileName是文件名
FFile_Handle := CreateFile(PChar(FSourceFileName),GENERIC_READ,FILE_SHARE_READ,nil,OPEN_EXISTING,FILE_ATTRIBUTE_NORMAL,0);
if FFile_Handle = INVALID_HANDLE_VALUE then Exit;
//获取文件尺寸
filesize := GetFileSize(FFile_Handle,nil);
-
本版专家分：14382
-
- 黄花 2012年5月 Delphi大版内专家分月排行榜第二
-
-
蓝花
2012年4月 Delphi大版内专家分月排行榜第三
2011年8月 Delphi大版内专家分月排行榜第三
-
-
//获取文件的大小
function FileLength(Filename:string):integer;
var
fp:file of byte;
begin
AssignFile(fp,Filename);
Reset(fp);
.............
end;
这个就能直接读取文件的大小.........
代码不全,楼主有意与我联系索取完整代码