Описание
Процедура прерывает выполнение операторов FOR, WHILE, или REPEAT и передает управление оператору, следующему за оператором цикла. Вызов данной процедуры должен производиться в теле оператора цикла, иначе компилятор выдаст сообщение об ошибке. Если внутри оператора цикла стоит конструкция try... finally... end, то вызов процедуры Break, прерывает выполнение цикла и передает управление первому оператору, стоящему в блоке finally... end.
Пример
В приведенном ниже примере, открывается текстовый файл 'С:\text.txt', создается текстовый файл 'С:\text2.txt' и построчно записывается первый абзац текста из первого файла во второй. var
S: string;
vf1, vf2: TextFile;
begin
AssignFile(vf1, 'C:\text.txt');
AssignFile(vf2, 'C:\text2.txt');
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;