function FileSize ( var FileHandle : File; ) : Integer;
Описание
Функция FileSize выдает размер открытого файла в записях.
Прежде, чем эта функция может использоваться, файл должен быть назначен дескриптору, используя AssignFile и открыт используя подпрограммы Append, Reset или ReWrite.
Примечания
Для получения размеров текстовых файлов в байтах используйте GetFileSize или FindFirst, FindNext, которые возвращают размер и значения даты последнего изменения одного или более файлов.
Похожие команды
DiskFree Выдает число свободных байтов на указанном диске
Пример кода : Получение размера в записях типизированного двоичного файла
var
myWord, myWord1, myWord2, myWord3 : Word;
myFile : File of Word;
begin // Попытка открыть двоичный файл Test.cus в режиме только для записи
AssignFile(myFile, 'Test.cus');
ReWrite(myFile); // Перед записью в файл, показываем
размер файла
ShowMessage('Размер файла = '+IntToStr(FileSize(myFile))); // Запись нескольких строк Word
данных в файл
myWord1 := 123;
myWord2 := 456;
myWord3 := 789;
Write(myFile, myWord1, myWord2, myWord3); // Перед закрытием файла, покажем
новый размер файла
ShowMessage('Размер файла теперь = '+IntToStr(FileSize(myFile))); // Закрытие файла
CloseFile(myFile);
end;
