如何获取一个文件的大小？

Question

。。

Answer 1

      AssignFile(f, myfile);
   FileSize(f);

Answer 2

//获取文件的大小，单位为字节
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;

Answer 3

var
  F: file of Byte;
　nSize: Longint;
begin
  AssignFile(F, 'C:\MyFile.txt'); 
　Reset(F); 
  nSize := FileSize(F); 
  CloseFile(F); 
end;

Answer 4

方法很多，可以用TSearchRec，还可以，用CreateFile，打开文件，然后用GetFileSize获取大小

Answer 5

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);  

Answer 6

//获取文件的大小
function  FileLength(Filename:string):integer;
var 
    fp:file   of   byte; 
begin 
    AssignFile(fp,Filename); 
    Reset(fp); 
    .............
end;
这个就能直接读取文件的大小.........
代码不全,楼主有意与我联系索取完整代码