IPB
ЛогинПароль:

 
 Ответить  Открыть новую тему 
> Размер имеет значение
сообщение
Сообщение #1


Новичок
*

Группа: Пользователи
Сообщений: 47
Пол: Мужской
Реальное имя: Диман

Репутация: -  0  +


Всем ПРИВЕТ! :D
Нужен исходник, который узнает размер файла в байтах! Помогите, если не трудно!
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 
сообщение
Сообщение #2


Гость






Код

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

Вроде так...
 К началу страницы 
+ Ответить 
сообщение
Сообщение #3


Ищущий истину
******

Группа: Пользователи
Сообщений: 4 825
Пол: Мужской
Реальное имя: Олег

Репутация: -  45  +


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


--------------------
Помогая друг другу, мы справимся с любыми трудностями!
"Не опускать крылья!" (С)
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 
сообщение
Сообщение #4


Гость






FileSize возвращает размер файла в элементах. Т. е., если файл "of word", то FileSize вернёт его размер/2. А ещё FileSize не применим к текстовым файлам.
 К началу страницы 
+ Ответить 
сообщение
Сообщение #5


Ищущий истину
******

Группа: Пользователи
Сообщений: 4 825
Пол: Мужской
Реальное имя: Олег

Репутация: -  45  +


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


--------------------
Помогая друг другу, мы справимся с любыми трудностями!
"Не опускать крылья!" (С)
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 
сообщение
Сообщение #6


Новичок
*

Группа: Пользователи
Сообщений: 47
Пол: Мужской
Реальное имя: Диман

Репутация: -  0  +


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


--------------------
Время есть сущность всех вещей.
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 

 Ответить  Открыть новую тему 
1 чел. читают эту тему (гостей: 1, скрытых пользователей: 0)
Пользователей: 0

 





- Текстовая версия 23.10.2021 9:03
500Gb HDD, 6Gb RAM, 2 Cores, 7 EUR в месяц — такие хостинги правда бывают
Связь с администрацией: bu_gen в домене octagram.name