FileLen ファイルサイズ

FileLen関数はファイルのサイズを返します。
Delphiでは FileSize 関数 を使用しますが、テキストファイルには使用できないので FindFirst関数を使って取得します。

■ FindFirst関数の例 
procedure TForm1.Button1Click(Sender: TObject);
var
  Rec : TSearchRec;
  intSize : integer;
begin
  { ファイルの検索 }
  if FindFirst('G:\ievader.lzh', faAnyFile, Rec) = 0 then  
  begin
    { サイズの取得 }
    intSize := Rec.Size;
    { KBに変換して表示 }
    Label1.Caption := IntToStr(intSize div 1024) + ' KB';
  end;
  FindClose(Rec);
end;

■ FileSize関数の例 
procedure TForm1.Button1Click(Sender: TObject);
var
  F : file of byte;
  intSize : integer;
begin
  { ファイルを開く }
  AssignFile(F,'G:\ievader.lzh');
  Reset(F);
  { サイズの取得 }
  intSize := FileSize(F);
  { KBに変換して表示 }
  Label1.Caption := IntToStr(intSize div 1024) + ' KB';  
  CloseFile(F);
end;