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;
|