Cek Ukuran File Delphi

Program sederhana dari delphi untuk mengecek ukuran file.

unit Unit1;<br /><br />interface<br /><br />uses<br />  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,<br />  Dialogs, StdCtrls, Buttons;<br /><br />type<br />  TForm1 = class(TForm)<br />    OD: TOpenDialog;<br />    BitBtn1: TBitBtn;<br />    Label1: TLabel;<br />    Edit1: TEdit;<br />    Label2: TLabel;<br />    procedure BitBtn1Click(Sender: TObject);<br />  private<br />    { Private declarations }<br />  public<br />    { Public declarations }<br />  end;<br /><br />var<br />  Form1: TForm1;<br />  nilai,hasil: Double;<br /><br />implementation<br /><br />{$R *.dfm}<br /><br />function GetSize(const AFile:String):Int64;<br />begin<br />  Result := 0;<br />  with TFileStream.Create(AFile, fmOpenRead) do<br />  begin<br />    try<br />      Result := Size;<br />    finally<br />      Free;<br />    end;<br />  end;<br />end;<br /><br />procedure TForm1.BitBtn1Click(Sender: TObject);<br />begin<br />if OD.Execute then Edit1.Text := IntToStr(GetSize(OD.FileName));<br />end;<br /><br />end.

Hasil screenshot :

 

Program dan Source Code dapat didownload DISINI