Описание:
Процедура Seek перемещает
позицию текущей записи в открытом двоичном файле, заданном переменой FileHandle,
в новую позицию RecordNumber.
Файл должен быть
связан с файловой переменной с помощью функции AssignFile и открыт с помощью
Reset или ReWrite.
Дня нетипизированных файлов
размер записи устанавливается с помощью процедуры Reset или ReWrite.
Для типизированных файлов размер записи равен
SizeOf(тип записи файла).
Первая запись в файле
начинается с номера 0.
Пример кода:
var
myWord, myWord1, myWord2, myWord3,
myWord4 : Word;
myFile : File of Word;
begin
// Try to open the Test.cus binary file in write only mode
AssignFile(myFile, 'Test.cus');
ReWrite(myFile);
// Write a few lines of Word data to the
file
myWord1 := 12;
myWord2 := 34;
myWord3 := 56;
myWord4 := 78;
Write(myFile, myWord1, myWord2, myWord3, myWord4);
// Close
the file
CloseFile(myFile);
// Reopen the
file for read only purposes
FileMode := fmOpenRead;
Reset(myFile);
// Seek (move) to the start
of the 3rd record
Seek(myFile, 2); // Records start from 0
// Show this record
Read(myFile, myWord);
ShowMessage('Record 3 = '+IntToStr(myWord));
// Close the file
CloseFile(myFile);
end;