Delphi справочник - Форум программистов - Навигация  
 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      По первой букве  
System     SysUtils     StrUtils     DateUtils     FileCtrl     ConvUtils     StdConvs     Math     Classes     Dialogs     Types     Variants    ПО Unit   Compiler directives     Directives     Keywords     Types     Variables     Constants     Functions     Procedures    По категории  


Основы Delphi
FilePos
Функция
System unit
  
1 function FilePos ( var FileHandle : File; ) : LongInt;

2 function FilePos ( car FileHandle : TextFile; ) ;
Описание
Функция 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
 



© Форум Delphi   |  Блог программистов   |  Создание и продвижение сайтов - "Веб сателлит"  |  Ссылки   |  Английская версия