Programowanie w języku Delphi » FAQ

Jak łatwo sprawdzić rozmiar pliku

Przedstawiam ciekawą funkcję, która jest znacznie łatwiejsza w użyciu i nie potrzebuje otwierać pliku, co powoduje że bardzo łatwo, bez problemów można sprawdzić rozmiar pliku.
function CheckFileSize(FileName : String) : Integer;
var
  Plik : TSearchRec;
begin
  if FindFirst(FileName, faAnyFile, Plik) = 0 then
    Result := Plik.Size
  else
    Result := -1;
  FindClose(Plik);
end;

Funkcji używa się bardzo łatwo, zwraca ona wynik w Integer, więc jeśli chcesz zapisać ją do TEdit, musisz ją przekonwertować do postaci String:
Edit1.Text := inttostr(CheckFileSize('X:\Plik.exe'));

Normalnie używa się funkcji w ten sposób:
RozmiarPliku := CheckFileSize('X:\Plik.exe');

Zamiast X:\Plik.exe, należy wstawić ścieżkę do pliku, jest to jedyny parametr funkcji.
Jeśli macie jakieś uwagi, śmiało komentujcie.

6 komentarzy

Brak avatara
lol 2014-01-26 09:59

nie wiem sam mam ten problem

Oleksy_Adam 2008-06-17 22:51

Powinno być

function CheckFileSize(FileName : String) : Integer;
var
  Plik : TSearchRec;
begin
  if FindFirst(FileName, faAnyFile, Plik) = 0 then 
    Result := Plik.Size 
  else 
    Result := -1;
  FindClose(Plik);
end;


Wtedy wiadomo, że pliku nie znaleziono i można dać stosowne info dla usera. Ale to kosmetyka

andrejch-chronos 2008-06-16 16:20

Tera to dajesz jak 3 tygodnie temu szukałem to pana ni było

user2046 2008-06-15 15:27

takiego czegoś szukałem;] ale nie prościej od razu tak:?

function CheckFileSize(FileSizee : String) : Integer;
var
  Plik : TSearchRec;
begin
  if FindFirst(FileSizee, faAnyFile, Plik) = 0 then result:= PLik.Size else result := 0;
  FindClose(Plik);
end; 

Demonical Monk 2008-09-07 11:19

<quote>Tera to dajesz jak 3 tygodnie temu szukałem to pana ni było</quote>

...

fatalbomb 2008-02-04 18:55

fajna rzecz :-)