|
|
Регистрация | << Правила форума >> | FAQ | Пользователи | Календарь | Поиск | Сообщения за сегодня | Все разделы прочитаны |
|
Опции темы | Поиск в этой теме | Опции просмотра |
#1
|
||||
|
||||
Как узнать размер файла?
Как узнать разер файла в байтах, а потом перевести в килобайты, мегабайты, гигабайты...???
http://forceway.ru/ |
#2
|
||||
|
||||
Программирование - это искусство и наш смысл жизни. |
#3
|
||||
|
||||
Все делается гораздо проще. В uses добавляем idGlobal и спокойно юзаем функцию FileSizeByName. для перевода в килобайты делим это число на 1024, в мегабайты еще раз делим на 1024 и т.д.
Не профи, но и не чайник . D6 - лучше не придумали. Пока. |
#4
|
|||
|
|||
Я делаю так:
1. Декларируем переменную типа File of byte 2. Дальше вводим код: AssignFile(Comp2,Edit1.Text); Reset(Comp2); Reps := FileSize(Comp2); CloseFile(Comp2); Где: Comp2 - Я так назвал переменную File of byte Edit1.Text - Подставляем свой файл Reps - Переменная для хранения размера файла |