Процедура Seek – переміщує покажчик у двійковому файлі на нову позицію

Процедура Seek в Delphi переміщує покажчик у двійковому файлі на нову позицію.

Процедура Seek: Повторне встановлення у файлі типу Word

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

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

  // Запис кількох рядків Word даних у файл
  myWord1 := 12;
  myWord2 := 34;
  myWord3 := 56;
  myWord4 := 78;
  Write(myFile, myWord1, myWord2, myWord3, myWord4);

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

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

  // Переміщення на початок 3-го запису
  Seek(myFile, 2);    // Записи починаються з 0

  // Показ цього запису
  Read(myFile, myWord);
  ShowMessage('Record 3 = '+IntToStr(myWord));

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