Функція FileSize – визначає розмір записів відкритого файлу

Функція FileSize в Delphi визначає розмір записів відкритого файлу.

Функція FileSize: Отримати розмір у записах типового двійкового файлу

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;