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时------
我在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 一次
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后
-----Edit值为1时------
while do 一次
---------------------------