| Описание |
Функция FilePos возвращает текущую позицию в открытом файле.
Файлом может быть, Типизированный, Нетипизированный или Текстовый файл.
Длина записи следующая:
Нетипизированные файлы : Как установлено в Reset или ReWrite
Типизированные файлы : SizeOf размера типа
Текстовые файлы : Переменная - определяемая концами строк
|
|
| Примечания |
|
Seek только для работы с двоичными файлами.
|
|
| Похожие команды |
Eoln Возвращает true, если позиция курсора находится в конце строки
File Определяет типизированный или нетипизированный файл
Seek Перемещает указатель в двоичном файле в новую позицию
SeekEoln Пропускает символы, пока не встретится конец текущей строки или файла
TextFile Объявляет типа файл для того, чтобы сохранить строки текста
| |
|
| Пример кода : Показ позиции файла в двоичном файле |
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;
|
Record 1 = 123
Record 2 = 456
Record 3 = 789
|
|
