FilePos

позволяет получить позицию "файлового курсора"
в двоичном или текстовом файле

|| 1 function FilePos ( var FileHandle : File; ) : LongInt;

|| 2 function FilePos ( car FileHandle : TextFile; ) ;

Описание:

    Delphi функция FilePos возвращает позицию "файлового курсора" в двоичном или текстовом файле.

    Полученная величина является позицией записи. Причем первая запись имеет позицию 0.

    Файл может быть не типизированным, типизированным или текстовым.

    Длина записи определяется следующим образом:

    Не типизированные файл : Как установлено в Reset или ReWrite.
    типизированные файлы : SizeOf - файловый тип.
    Текстовые файлы : длина строки.

Пример кода:

var
   myWord, myWord1, myWord2, myWord3 : 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 := 123;
   myWord2 := 456;
   myWord3 := 789;
   Write(myFile, myWord1, myWord2, myWord3);

   // Close the file
   CloseFile(myFile);

   // Reopen the file in read only mode
   FileMode := fmOpenRead;
   Reset(myFile);

   // Display the file contents
   while not Eof(myFile) do
   begin
     Read(myFile, myWord);
     // Note - FilePos shows the after read position
     ShowMessage('Record '+
                 IntToStr(FilePos(myFile))+' = '+
                 IntToStr(myWord));
   end;

   // Close the file for the last time
   CloseFile(myFile);
end;

Результат выполнения:

Record 1 = 123
Record 2 = 456
Record 3 = 789

Клуб программистов

Delphi programming

FilePos

Описание:

Пример кода:

Результат выполнения: