delphi中如何判断文件大小阿？

Question

如题。

Answer 1

取得文件大小有很多方法，我认为最简单的就是用  FindFirst()函数查找
里面有个 size属性

Answer 2

var
  sr: TSearchRec;begin if FindFirst('c:\1.txt',faAnyFile,sr) = 0 then    showmessage(IntToStr(sr.Size));  FindClose(sr);end;

Answer 3

还有一个问题，我已经使用try finally保护块，但是还是出现错误提示，请问如何去掉错误提示啊？

Answer 4

编译后在单独执行程序，不要在Delphi编译下运行。

Answer 5

在Delphi编译环境中也要出现你定义的错误提示，这样做
Tools-->Debugger Options..-->不选Integrated debugging

Answer 6

var
f: file of Byte;
     size : Longint;
begin
tryif ((fileexists('c:\ceshitemp.rar')=true)) then
beginAssignFile(f, 'c:\ceshitemp.rar');Reset(f);执行到这一句出错，探出窗口，提示i/o错误。
size := FileSize(f);
if (size >=2738598) then
begin
edit25.text:=floattostr(timej) + 's';
timer3.enabled:=false;
DeleteFile ('c:\ceshitemp.rar');
end;end;
finally
timej:=timej+0.5;
end;
end;

Answer 7

var
  sr: TSearchRec;begin if FindFirst('c:\1.txt',faAnyFile,sr) = 0 then    showmessage(IntToStr(sr.Size));  FindClose(sr);end;

Answer 8

Sizeof(Filename)Sizeof(***)可以返回任何文件、数据、数组的大小

Answer 9

var  F: file of Byte;
begin
  if OpenDialog1.Execute then
  begin
    AssignFile(F, OpenDialog1.FileName);
    {$I-}
    Reset(F);
    {$I+}
    if IOResult = 0 then
    begin
      MessageDlg('File size in bytes: ' + IntToStr(FileSize(F)),
        mtInformation, [mbOk], 0);
      CloseFile(F);
    end
    else
      MessageDlg('File access error', mtWarning, [mbOk], 0);
  end;end;

Answer 10

我主要是想问如何使用try finally语句后不再弹出提示框。

Answer 11

1.文件大小：[uses IdGlobal]
function FileSizeByName(const AFilename: string): Int64;
begin
  with TFileStream.Create(AFilename, fmOpenRead or fmShareDenyNone) do
  try
    Result := Size;
  finally 
    Free; 
  end;
end;
2.不弹出提示框：
Tools->Debug Options...->Language Exceptions标签中去掉
Stop On Delphi Exceptions复选框的选择

Answer 12

function TFrm_Main.GetMyFileSize(sFileName: String): Real;
var M:TMemoryStream;
begin
   M:=TMemoryStream.Create;
   M.LoadFromFile(sFileName);
   Result:=M.Size;
   M.Free;
end;这个函数没问题，用吧，赶紧给我分！

Answer 13

你用Reset函数的话，请在使用前设置打开属性（一个全局变量），
因为你这个文件可能是只读的。