Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2003.10.06;
Скачать: CL | DM;

Вниз

Размер файла   Найти похожие ветки 

 
drakulita ©   (2003-09-23 15:48) [0]

Как определить размер файла?
Зарание спасибо.


 
Переяслов Григорий ©   (2003-09-23 15:54) [1]

FileSize?


 
Anatoly Podgoretsky ©   (2003-09-23 15:58) [2]

Не ну это слишком просто


 
Илайдж ©   (2003-09-23 16:14) [3]


function OpredelitRazmerFaila(filename:string): longint;
var
fs: longint;
b: byte;
f: file of byte;
begin
assignfile(f, filename);
{$I-}
reset(f);
if IOResult <> 0 then begin
result := 0;
end
else begin
{$I+}
while not eof(f) do begin
read(f,b);
inc(fs);
end;
closefile(fs);
result := fs;
end;
end;

Так пойдет? :D


 
Илайдж ©   (2003-09-23 16:15) [4]

ага, еще в самом начале

fs := 0;


 
Zhouck ©   (2003-09-23 16:19) [5]

A TFileStream слабо использовать?
Создаешь объект, а у него свойсво Size есть


 
pasha_golub ©   (2003-09-23 17:10) [6]

2Илайдж

ничего так, прикольно, а если файл на 900Мб, мы Вас когда, послезавтра увидем?


 
Anatoly Podgoretsky ©   (2003-09-23 17:13) [7]

А про время никто не спрашивал


 
pasha_golub ©   (2003-09-23 18:13) [8]

2Anatoly Podgoretsky
тогда предлагаю, узнать сумму размеров всех файлов кроме нужного, и от общего занятого места на диске отнять эту сумму :-)


 
Anatoly Podgoretsky ©   (2003-09-23 19:37) [9]

Вот, вот, теперь мы близки к идеалу.



Страницы: 1 вся ветка

Текущий архив: 2003.10.06;
Скачать: CL | DM;

Наверх




Память: 0.48 MB
Время: 0.025 c
14-18573
Igorek
2003-09-18 10:49
2003.10.06
Однопроходной С++ компилятор


3-18266
rava
2003-09-15 16:49
2003.10.06
Исключение MAX()


1-18473
-=[SDA]=-
2003-09-24 12:32
2003.10.06
PopupMenu !?


1-18468
zerro_nuz
2003-09-24 11:54
2003.10.06
Помогите как вычесть из даты дату ?


1-18367
Ups
2003-09-22 20:02
2003.10.06
Закрыть папку средствами Delphi