Функція FilePos – дає позицію файлу у двійковому або текстовому файлі

Функція FilePos в Delphi дає позицію файлу у двійковому або текстовому файлі.

Функція FilePos: Показ позиції файлу в двійковому файлі

var
  myWord, myWord1, myWord2, myWord3 : Word;
  myFile : File of Word;

begin
  // Спроба відкрити двійковий файл Test.cus у режимі лише для запису
  AssignFile(myFile, 'Test.cus');
  ReWrite(myFile);

  // Запис декількох рядків Word даних у файл
  myWord1 := 123;
  myWord2 := 456;
  myWord3 := 789;
  Write(myFile, myWord1, myWord2, myWord3);

  // Закриття файлу
  CloseFile(myFile);

  // Повторне відкриття файлу лише для читання
  FileMode := fmOpenRead;
  Reset(myFile);

  // Показ вмісту файлу
  while not Eof(myFile) do
  begin
    Read(myFile, myWord);
    // Примітка — FilePos показує позицію після читання
    ShowMessage('Record '+
                IntToStr(FilePos(myFile))+' = '+
                IntToStr(myWord));
  end;

  // Закриття файлу востаннє
  CloseFile(myFile);
end;