打断语句

Break语句

Break语句用于跳出循环，当一个循环没有达到循环结束的条件并要结束循环时，使用Break语句。

function GetValue:integer;
var
  i,j:integer;
begin
  i:=0;
  for j:=0 to 20 do begin
    i:=i+j;
    if i>10 then break;  //运行过程中，终止以后所有循环
  end;
  result:=i;  //运行结果：15
end;

Continue语句

Continue语句与Break语句比较相似，但Continue语句是跳过本次循环，即跳过当前的循环，继续执行以后的循环。

function GetValue:integer;
var
  i,j:integer;
begin
  i:=0;
  for j:=0 to 20 do begin
    if j mod 2=0 then continue;  //运行过程中，终止本层循环
    i:=i+j;
  end;
  result:=i;  //运行结果：100，即20以内的所有奇数的和
end;

Exit语句

Exit语句退出当前的过程或函数，Exit前的语句会被执行，Exit后的所有语句将会被忽略

procedure TForm1.Button1Click(Sender: TObject);
begin
  edit1.Text:='MingRiSoft';
  edit2.Text:='Company';
  exit;
  
  edit3.Text:='Welcome You';
end;

区别：break和continue都是与循环有关，用于跳出循环，而exit直接终止断点到end之间的所有程序

RunError语句

RunError语句用于终止程序运行并产生一个运行期错误。

procedure TForm1.Button1Click(Sender:TObject);
begin
  runerror(204);
end;