Programowanie w języku Delphi

FileSize

  • 2010-10-31 18:27
  • 5 komentarzy
  • 2256 odsłon
  • Oceń ten tekst jako pierwszy
FileSize
Moduł: System

function FileSize(var F): Integer;


Funkcja umożliwia odczyt rozmiaru pliku określonego w parametrze F. Parametr musi wskazywać na plik amorficzny (typ File) tekstowy (typ TextFile) lub typowany.

Przyklad:

procedure TForm1.Button1Click(Sender: TObject);
var
  F1: File;
  L1: Longint;
begin
  AssignFile(F1, 'c:\WINDOWS\winhelp.exe');
  Reset(F1);
  L1 := FileSize(F1);
  Button1.Caption := IntToStr(L1);
  CloseFile(F1);
end;


Zobacz też:

5 komentarzy

saradeus 2012-02-14 21:53

- Zmienna F1 jest typu file (typ : plik amorficzny) , żeby ta Filesize  podało nam rozmiar w bajtach musimy otworzyć plik z parametrem :
Reset(F1,1);               // ponieważ domyślnie   Reset(F1);  =    Reset(F1,128);
- Możemy otworzyć również jak w przykładzie :
Reset(F1);   ale zmienną F1 powinniśmy tak zadeklarować var F1 : File of byte;  i wtedy Filesize mamy w bajtach.
- Ze względu że FileSize zwraca wartość typu LongInt możemy obsługiwać pliki do 2147483647 bajtów
-  Właściwość Size plików strumieniowych nie ma takich ograniczeń jak FileSize ponieważ zwraca wartość typu Int64 . Polecam artykuł Pliki

Bono94 2008-08-31 14:08

A jak to "przełożyć" na megabajty?

Coldpeer 2006-07-13 00:10

No jak to w jakich,w bajtach :P

tomalla 2006-05-06 12:50

no dobra, ale w jakich jednostkach to jest?
jak wybrany plik ma 1 kb, program zwraca mi 103.

Adam Boduch 2006-01-17 11:35

- Brak opisu funkcji
- Brak funkcji CloseFile ktora zamyka plik
- Po co przypisywac do kategorii "Funkcje matematyczne"? Co to za funkcja matematyczna?

I tak przydaloby sie cos jeszcze dodac o plikach typowanych. Ze odczytuje ilosc rekordow w pliku (IMHO?).