[Delphi] Break, Exit, Abort, Continue 使用

Break;
中斷執行迴圈，可從當前 for…to…do、while…do、repeat…until 執行中途跳出，繼續執行該迴圈的下一段程式碼。

Continue;
繼續迴圈，可從當前 for…to…do、while…do、repeat…until 執行中途，忽略以下程式碼，跳到迴圈頭續續執行。

Exit;
離開函式，可從當前 procedure、function 執行中跳出，繼續執行呼叫的程式碼。

Abort;
中斷函式，可從當前 procedure、function 執行中跳出，並觸發 try…except(如有將 Abort 包進 try…except)

Break, Continue 範例結果：

procedure Test;
begin
  for i := 0 to 3 do 
  begin
    if i := 0 then begin
      continue;
      ShowMessage('After Continue' + IntToStr(i));
    end;
    if i := 2 then begin
      break;
      ShowMessage('After Break;' + IntToStr(i));
    end;
    ShowMessage('End of If' + IntToStr(i));
  end;
  ShowMessage('End of For' + IntToStr(i));
end;  // end of procedure

結果應該會依序出現

End of If 1


End of For 3

Exit, Abort 範例結果

procedure Test;
begin
  try
    Abort;
    ShowMessage('After Abort 1');
  except
    ShowMessage('Enter Except 1');
  end;
  ShowMessage('Out try...except 1 ');

  try
    Exit;
    ShowMessage('After Exit 2');
  except
    ShowMessage('Enter Except 2');
  end;
  ShowMessage('Out try...except 2');
end;

結果應該會依序出現

Enter Except 1


Out try…except 1