Dlczego FileSize w procedurze:
AssignFile(F, nazwa pliku);
Reset(F);
A:=FileSize(F);
CloseFile(F);
u mnie dziala IDEALNIE a u innych niebardzo? Wiem ze moze byc paramter powodujacy zeby to byl plik tylko do odczytu ale to nic nie daje! :( Co zrobic?! :(
A F to jaki rodzaj pliku? Co to znaczy niebardzo?
F : file of byte;
Niebrdzo oznacza ze w ogole nie dziala :)
Jeśli plik ma ustawiony atrybut ReadOnly, FileSize zwróci 0.
Aby otrzymać poprawny rozmiar pliku możesz zastosować: FileOpen + GetFileSize + FileClose.
jezeli chcesz poznac tylko rozmiar pliku a znasz nazwe tego pliku to mozesz uzyc struktury TSearchRec.
np.
var TempSearch : TSearchRec;
...
FindFirst('jakis.plik',faAnyFile,TempSearch);
label1.caption := IntToStr(TempSearch.Size);
FindClose(TempSearch);
...
to ci powinno zwrocic poprawny rozmiar w bajtach (bodajze). Powinno dzialac, aczkolwiek nie wiem bo pisalem z pamieci :). Jak kiedys takie cos robilem to mi dzialalo.
[cya]