Delphi-Help

Описание

function FileSize ( var FileHandle : File; ) : Integer;

Функция FileSize выдает размер открытого файла в записях.
Прежде, чем эта функция может использоваться, файл должен быть назначен дескриптору, используя AssignFile и открыт используя подпрограммы Append, Reset или ReWrite.

Пример кода

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;

Размер файла = 0
Размер файла теперь = 3

Примечание

Для получения размеров текстовых файлов в байтах используйте GetFileSize или FindFirst, FindNext, которые возвращают размер и значения даты последнего изменения одного или более файлов.