Всем ПРИВЕТ! :D
Нужен исходник, который узнает размер файла в байтах! Помогите, если не трудно!
Размер имеет значение |
Размер имеет значение |
EXE |
Сообщение
#1
|
Новичок Группа: Пользователи Сообщений: 47 Пол: Мужской Реальное имя: Диман Репутация: 0 |
Всем ПРИВЕТ! :D
Нужен исходник, который узнает размер файла в байтах! Помогите, если не трудно! |
BlackShadow |
Сообщение
#2
|
Гость |
Код Function GetFileSize(FileName:String):LongInt; Var f:File Of Byte; Begin Assign(f,FileName); Reset(f); GetFileSize:=FileSize(f); Close(f) End; Вроде так... |
Altair |
Сообщение
#3
|
Ищущий истину Группа: Пользователи Сообщений: 4 825 Пол: Мужской Реальное имя: Олег Репутация: 45 |
Или еще проще ответить:
использовать функцию filesize для определения размера любого файла. -------------------- Помогая друг другу, мы справимся с любыми трудностями!
"Не опускать крылья!" (С) |
BlackShadow |
Сообщение
#4
|
Гость |
FileSize возвращает размер файла в элементах. Т. е., если файл "of word", то FileSize вернёт его размер/2. А ещё FileSize не применим к текстовым файлам.
|
Altair |
Сообщение
#5
|
Ищущий истину Группа: Пользователи Сообщений: 4 825 Пол: Мужской Реальное имя: Олег Репутация: 45 |
Поэтому, надо описать файл, как файл байтов.
Или так: переменная : файл из "тип". размер файла = filesize(переменная)*размер "типа" -------------------- Помогая друг другу, мы справимся с любыми трудностями!
"Не опускать крылья!" (С) |
EXE |
Сообщение
#6
|
Новичок Группа: Пользователи Сообщений: 47 Пол: Мужской Реальное имя: Диман Репутация: 0 |
Спасибо за помощь! ;)
-------------------- Время есть сущность всех вещей.
|
Текстовая версия | 13.05.2024 12:56 |