VIII. ФУНКЦИИ И ПРОЦЕДУРЫ УПРАВЛЕНИЯ ПРОГРАММОЙ

2. Процедуры управления ходом выполнения программы

Процедура Break;

Модуль: System

Описание
Процедура прерывает выполнение операторов FOR, WHILE, или REPEAT и передает управление оператору, следующему за оператором цикла. Вызов данной процедуры должен производиться в теле оператора цикла, иначе компилятор выдаст сообщение об ошибке. Если внутри оператора цикла стоит конструкция try... finally... end, то вызов процедуры Break, прерывает выполнение цикла и передает управление первому оператору, стоящему в блоке finally... end.

Пример
В приведенном ниже примере, открывается текстовый файл 'С:\texttxt.html', создается текстовый файл 'С:\text2txt.html' и построчно записывается первый абзац текста из первого файла во второй.
var

S: string;
vf1, vf2: TextFile;

begin

AssignFile(vf1, 'C:\texttxt.html');
AssignFile(vf2, 'C:\text2txt.html');
Reset(vf1);
Rewrite(vf2);
while not EOF(vf1) do
begin

ReadLn(vf1, S);
try
  if S'' then
    if S[length(S)]='.' then Break;
finally
  WriteLn(vf2, S);
end;

end;
CloseFile(vf1);
CloseFile(vf2);

end;

[Вернуться к содержанию]