Delphi 流程控制

程序流程控制
(1)条件分之
if...else:
var I:Integer;
begin
if I > 0 then
begin
Do //不能给';'
end //没有结束 if...else都不能加';'s


else if I < 0 then
begin
//Do
end


else
begin
//Do; //两个语句以上前面的语句必须加';'
//Do
end;


end;


case of...else...end
var
I:Integer
begin
case I of
1: 
Do;//要加分号
2,3:
Do;
4..10: //如果I在4~10 包含极端 相当于 if I in[4..10]
Do;
else
Do;
end;
end;
(2)循环
while://先判断在执行(如同C艹while)
for to:
var
I:Integer;
begin
for I := 0 to do //或者 for I := 10 downto 0 do (这里每次步长只能为1 不能更改)
Do;
end;


while:
var
I := 0;
while I <= 10 do
begin
Do;
Inc(I) //自加1
end;
end;


repeat: //先执行在判断(如同C艹的do while)
var
I := 0;
repeat
Do;
Inc(I) //自加1
until I = 10;
end;


Abort:
跳出所有模块


try
 if True then
   Abrot;
except
  //处理错误消息
end; 
  Do;    //如果是 try...finally 那么这里这句就不会执行
//Abrot 之后 执行 except..end 处理异常 然后 Do


Exit: //正常退出过程
begin
try
  if True then
Exit;
finally
ShowMessage('Abrot'); //要执行
end;
showMessage('处理完成'); //不执行


Halt:(Exitcode:Integer): //非正常结束一个应用程序


RunError(Exitcode:Byte) //生成运行时错误,并结束程序


Continue: //中断当前循环
var
 i: Integer;
begin
for I := 0 to 2 do
begin
  try
if I < 2 then
Continue;
Do;
finally //这里会中断以后执行 finally..end的内容然后进入下一循环
Do;
end;
end;
end;


Brak: 完全中断循环 如果位于try...finally当中,则finally中的代码能够得到执行
var 
I: Integer;
begin
for I := 0 < 3 do
begin
try
if I = 2 then
break; //break之后还会执行 finally...end里面的内容
Do;
finally
Do;
end;
end;