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
 



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