 Размер имеет значение |
  |
| EXE |
  28.05.2004 16:00
Сообщение
#1
|
 Новичок  Группа: Пользователи Сообщений: 47 Пол: Мужской Реальное имя: Диман Репутация:  0   |
Всем ПРИВЕТ! :D
Нужен исходник, который узнает размер файла в байтах! Помогите, если не трудно! |
   |
 
|
| BlackShadow |
28.05.2004 16:31
Сообщение
#2
|
|
Гость |
Код 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 17:49
Сообщение
#3
|
 Ищущий истину Группа: Модераторы Сообщений: 4 824 Пол: Мужской Реальное имя: Олег Репутация: 45 |
Или еще проще ответить:
использовать функцию filesize для определения размера любого файла. -------------------- Помогая друг другу, мы справимся с любыми трудностями!
"Не опускать крылья!" (С) |
|
|
|
| BlackShadow |
31.05.2004 11:07
Сообщение
#4
|
|
Гость |
FileSize возвращает размер файла в элементах. Т. е., если файл "of word", то FileSize вернёт его размер/2. А ещё FileSize не применим к текстовым файлам.
|
|
|
|
| Altair |
31.05.2004 17:31
Сообщение
#5
|
|
Ищущий истину Группа: Модераторы Сообщений: 4 824 Пол: Мужской Реальное имя: Олег Репутация: 45 |
Поэтому, надо описать файл, как файл байтов.
Или так: переменная : файл из "тип". размер файла = filesize(переменная)*размер "типа" -------------------- Помогая друг другу, мы справимся с любыми трудностями!
"Не опускать крылья!" (С) |
|
|
|
| EXE |
2.06.2004 23:18
Сообщение
#6
|
|
Новичок Группа: Пользователи Сообщений: 47 Пол: Мужской Реальное имя: Диман Репутация: 0 |
Спасибо за помощь! ;)
-------------------- Время есть сущность всех вещей.
|
|
|
|
|
1 чел. читают эту тему (гостей: 1, скрытых пользователей: 0)
Пользователей: 0
|
Текстовая версия | 23.04.2024 12:53 |