SeekEoln Пропускает символы, пока не встретится конец текущей строки или файла
Пример кода : Повторное установление в файле типа 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;
