Форум: "Основная";
Текущий архив: 2002.07.29;
Скачать: [xml.tar.bz2];

Вниз

Определение размера zip файла:   Найти похожие ветки 

← →
greenrul   (2002-07-16 12:18) [0]

FileSize выдает совершенно другое значение - размер файла - 428кб а FileSize говорит 3586. Есть другие функции?

Вот текст программы:

var f1:file;
......
AssignFile(f1,path);
Reset(f1);
i1:=FileSize(f1);
CloseFile(f1);
ShowMessage(IntToStr(i1));


---

← →
Skier   (2002-07-16 12:24) [1]

>greenrul
А если так :


var f1:file of Byte;
......
AssignFile(f1,path);
Reset(f1);
i1:=FileSize(f1);
CloseFile(f1);
ShowMessage(IntToStr(i1));


---

← →
PVOzerski   (2002-07-16 12:56) [2]

Штука в том, что FileSize выдаёт длину файла в записях, а не в байтах, а для нетипизированного файла по умолчанию (если reset вызывается без дополнительного параметра) она 128. Воспользуйтесь либо советом Skier ©, либо в своем тексте исправьте Reset(f1); на
Reset(f1,1);

---

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

Форум: "Основная";
Текущий архив: 2002.07.29;
Скачать: [xml.tar.bz2];

Наверх

Память: 0.54 MB
Время: 0.02 c