Arsip: Membaca Ukuran "file-teks"

procedure TForm1.Button1Click(Sender: TObject);

var

SearchRec: TSearchRec;

begin

if OpenDialog1.Execute then

if FindFirst(OpenDialog1.FileName, faAnyFile, SearchRec) = 0 then

Label1.Caption := FloatToStrF(SearchRec.Size/1048576, ffFixed, 7, 2)+' MB';

FindClose(SearchRec);

end;