Справочник функций и процедур Delphi: Seek

  Навигация по первой букве:

A  B  C  D  E  F  G  H  I  J  K  L  M  N  O  P  Q  R  S  T  U  V  W  X  Y  Z

  Навигация по категории:

Compiler directives, Directives, Keywords / Types, Variables, Constants / Functions, Procedures

Seek
Процедура
Перемещает указатель в двоичном файле в новую позицию System unit
  procedure Seek ( var FileHandle : File; RecordNumber : LongInt ) ;

Delphi Sources

Описание
Процедура Seek перемещает текущую позицию записи в открытом двоичном файле указанном FileHandle в новою позицию RecordNumber.

Файл, должно быть, был назначен AssignFile и открыт с помощью Reset или ReWrite.

Для нетипизированных файлов, размер записи устанавливается используя подпрограммы Reset или ReWrite.

Для типизированных файлов, размер записи = SizeOf(тип файла).

Первая запись в файле 0 запись.
Примечания
Используйте SeekEoln или SeekEof, чтобы переместить указатель файла в текстовом файле.
Похожие команды
Eof  Возвращает true, если позиция курсора находится в конце файла открытого с помощью Reset

Eoln  Возвращает true, если позиция курсора находится в конце строки

File  Определяет типизированный или нетипизированный файл

FilePos  

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;
Record 3 = 56
 


Последние добавленные на сайт исходники

DeLiKaTeS Tetris (Тетрис)

TDictionary Custom Sort

Fast Watermark Sources

3D Designer

Sik Screen Capture

Patch Maker

 

Айболит (remote control)

ListBox Drag & Drop

Доска для игры Реверси

Графические эффекты

Рисование по маске

Перетаскивание изображений

 

Copyright © 2004-2024 "Delphi Sources" by BrokenByte Software (источник – "DelphiBasics")

Группа ВКонтакте