Помощь - Поиск - Пользователи - Календарь
Полная версия: Размер имеет значение
Форум «Всё о Паскале» > Pascal, Object Pascal > Написание игр
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
Спасибо за помощь! ;)
Это текстовая версия — только основной контент. Для просмотра полной версии этой страницы, пожалуйста, нажмите сюда.