Версия для печати темы

Нажмите сюда для просмотра этой темы в обычном формате

Форум «Всё о Паскале» _ Написание игр _ Размер имеет значение

Автор: EXE 28.05.2004 20:00

Всем ПРИВЕТ! :D
Нужен исходник, который узнает размер файла в байтах! Помогите, если не трудно!

Автор: BlackShadow 28.05.2004 20:31

Код

Function GetFileSize(FileName:String):LongInt;
Var
 f:File Of Byte;
Begin
 Assign(f,FileName);
 Reset(f);
 GetFileSize:=FileSize(f);
 Close(f)
End;

Вроде так...

Автор: Altair 28.05.2004 21:49

Или еще проще ответить:
использовать функцию filesize для определения размера любого файла.

Автор: BlackShadow 31.05.2004 15:07

FileSize возвращает размер файла в элементах. Т. е., если файл "of word", то FileSize вернёт его размер/2. А ещё FileSize не применим к текстовым файлам.

Автор: Altair 31.05.2004 21:31

Поэтому, надо описать файл, как файл байтов.
Или так:
переменная : файл из "тип".
размер файла = filesize(переменная)*размер "типа"

Автор: EXE 3.06.2004 3:18

Спасибо за помощь! ;)