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

    Процедура SeekEof пропускает символы пробела, табуляции и пустой строки в открытом текстовом файле, заданном переменной FileHandle.

     Файл должен быть связан с файловой переменной процедурой AssignFile и открыт с помощью Reset.

     Если при этом был достигнут конец файла, возвращаемое значение будет True.

     Эта функция обычно используется при чтении неизвестного количества символов в файле.

var
   myFile : TextFile;
   number : Integer;

begin
   // Try to open the Test.txt file for writing to
   AssignFile(myFile, 'Test.txt');
   ReWrite(myFile);

   // Write numbers in a string
   WriteLn(myFile, '1 2 3 4 '); // White space at the end

   // Write numbers as separate parameters
   WriteLn(myFile, 5, ' ', 6, ' ', 7, ' '); // Results in '5 6 7 ' text

   // Close the file
   CloseFile(myFile);

   // Reopen the file for reading
   Reset(myFile);

   // Display the file contents
   while not SeekEof(myFile) do
   begin
     // Read numbers one at a time
     ShowMessage('Start of a new line');
     while not SeekEoln(myFile) do
     begin
       Read(myFile, number);
       ShowMessage(IntToStr(number));
   end;

     // Now move to the next line
     ReadLn(myFile);
   end;

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

Start of a new line
   1
   2
   3
   4
Start of a new line
   5
   6
   7