Статьи по Делфи
Меню сайта


Категории каталога
Мои статьи [2]
Функции и процедуры Win Api [20]
Работа с мышью [10]
Реестр и Делфи [11]
Работа с файлами [38]
Делфи и Хакер [10]
Инсталлятор собственными руками [6]
Хитрости в делфи [3]
Работа с системой [19]


Форма входа


Поиск по каталогу


Друзья сайта


Наш опрос
Понравились ли вам треки
Всего ответов: 156


Приветствую Вас, Гость · RSS 2020-09-19, 10:01 PM
Начало » Статьи » Работа с файлами

Функция SeekEof
Функция SeekEof [ ( var Vf: Text ) ]: Boolean;

--------------------------------------------------------------------------------

Модуль: System

Описание
Функция определяет, достигнут ли конец файла.
Если указатель стоит в конце файла, то функция возвращает True, а иначе - False.
Данная функция может применяться только к открытым текстовым файлам.

Пример
var
Vf1, Vf2: TextFile;
i, j: Integer;
begin

AssignFile( Vf1, 'work1.txt' );
Rewrite( Vf1 ); // создает и открывает файл 'work1.txt'
AssignFile( Vf2, 'work2.txt' );
Rewrite( Vf2); // создает и открывает файл 'work2.txt'
Writeln( Vf1, '1 2 3' ); // записывает строку в файл'work1.txt'
Writeln( Vf1, '10 20 30' ); // записывает 2-ю строку в файл
Writeln( Vf1, '100 200 300' ); // записывает 3-ю строку в файл
Reset( Vf1); { устанавливает указатель файла 'work1.txt' в начало файла}
while not SeekEof(Vf1) do
begin //цикл, пока не достигнут конец файла

if SeekEoln( Vf1) then Readln; { если достигнут конец строки в файле, то переход на следующую строку}
Read( Vf1, j ); // читает число из файла 'work1.txt'
Writeln( Vf2, j ); // записывает число в файл 'work2.txt'
end;

CloseFile( Vf1 );
CloseFile( Vf2 );

end;

Категория: Работа с файлами | Добавил: Admin (2006-12-17)
Просмотров: 1568 | Рейтинг: 0.0 |

Всего комментариев: 0
Имя *:
Email *:
Код *: