break , continue , exit 的区别

最新推荐文章于 2020-04-26 08:33:58 发布

Rshh

最新推荐文章于 2020-04-26 08:33:58 发布

阅读量856

点赞数

分类专栏： Delphi>>资料积累文章标签： break continue delphi exit

本文链接：https://blog.csdn.net/rshhs/article/details/8233363

版权

Delphi>>资料积累专栏收录该内容

7 篇文章 0 订阅

订阅专栏

1. break

跳出当前循环体

2. continue

从此位置直接跳出当前循环（次）代码，跳至循环开始处继续执行循环

3. exit

退出当前模块（过程、函数）

EG：

1. break

function GetI: Integer;
begin
  Result := StrToInt(Form1.Edit1.text);
end;

procedure TForm1.Button1Click(Sender: TObject);
var
  i: Integer;
begin
  while i <> 10 do
  begin
    Memo1.Lines.Add('while do 一次');

    i := GetI;
    if i = 1 then
      Break;  //
    Memo1.LineS.Add('我在break后');
    Application.ProcessMessages;
  end;
  Memo1.Lines.Add('stop')
end;

执行结果：

-----Edit值为0时------

我在break后
while do 一次
我在break后
while do 一次
我在break后
while do 一次
我在break后
while do 一次
我在break后
while do 一次
我在break后
while do 一次
我在break后
while do 一次
我在break后
while do 一次
我在break后
while do 一次
我在break后
while do 一次
我在break后
while do 一次
我在break后

-----Edit值为1时------
while do 一次
stop

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

2. continue.

function GetI: Integer;
begin
  Result := StrToInt(Form1.Edit1.text);
end;

procedure TForm1.Button1Click(Sender: TObject);
var
  i: Integer;
begin
  while i <> 10 do
  begin
    Memo1.Lines.Add('while do 一次');
    i := GetI;
    if i = 1 then
      Continue;
    Memo1.LineS.Add('我在break后');
    Application.ProcessMessages;
  end;
  Memo1.Lines.Add('stop')
end;

执行结果：

-----Edit值为0时------

-----Edit值为1时------
while do 一次
while do 一次
while do 一次
while do 一次
while do 一次
while do 一次
...

while do 一次

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

3. Exit

function GetI: Integer;
begin
  Result := StrToInt(Form1.Edit1.text);
end;

procedure TForm1.Button1Click(Sender: TObject);
var
  i: Integer;
begin
  while i <> 10 do
  begin
    Memo1.Lines.Add('while do 一次');
    i := GetI;
    if i = 1 then
      Exit;
    Memo1.LineS.Add('我在break后');
    Application.ProcessMessages;
  end;
  Memo1.Lines.Add('stop')
end;

-----Edit值为0时------

while do 一次
我在break后
while do 一次
我在break后
while do 一次
我在break后
while do 一次
我在break后
while do 一次
我在break后
while do 一次
我在break后
while do 一次
我在break后
while do 一次
我在break后
while do 一次
我在break后
while do 一次
我在break后
while do 一次
我在break后
while do 一次
我在break后