Я делаю так:
1. Декларируем переменную типа File of byte
2. Дальше вводим код:
AssignFile(Comp2,Edit1.Text);
Reset(Comp2);
Reps := FileSize(Comp2);
CloseFile(Comp2);
Где:
Comp2 - Я так назвал переменную File of byte
Edit1.Text - Подставляем свой файл
Reps - Переменная для хранения размера файла
|