程式流程的輔助控制 轉

2021-09-07 07:33:07 字數 1154 閱讀 6268

abort    //

激發異常退出,如果在 try 塊中,except 和 finally 的程式會執行

exit //

正常退出,如果在 try 塊中,except 和 finally 的程式會執行

halt //

runerror //

生成乙個執行時錯誤,並退出程式。引數是 byte 型,預設0

continue //

結束當前迴圈進入下一迴圈

break //

結束迴圈

sleep //

暫停多少毫秒

procedure

tform1.button1click(sender: tobject);

varx: integer;

label n1,n2,n3,4; //

goto的標籤可以是識別符號, 也可以是0..9999的數字

begin

x := 0;

goto

n3; n1: x := x+1

; n2: x := x+2

; n3: x := x+3;

4: x := x+4

; showmessage(inttostr(x));

//返回7而不是10

end;

uses 子句的寫法

//

uses 子句一般這樣寫

uses

windows, messages, sysutils, variants, classes, graphics, controls, forms, dialogs;

//這樣寫更清晰,因為delphi忽略換行

uses

windows,

messages,

sysutils,

variants,

classes,

graphics,

controls,

forms,

dialogs;

//如果不在系統可以識別的路徑中需要這樣寫:

uses

unitx in'

c:\temp\unitx.pas

'

view code

程式流程的輔助控制 轉

abort 激發異常退出,如果在 try 塊中,except 和 finally 的程式會執行 exit 正常退出,如果在 try 塊中,except 和 finally 的程式會執行 halt runerror 生成乙個執行時錯誤,並退出程式。引數是 byte 型,預設0 continue 結束當...

程式的流程控制

語句 1 空語句 2 非空語句 語句塊 使花括號之間的多條語句成為乙個整體 語句1 語句2 程式的流程控制 順序 選擇 迴圈 順序結構 從上往下,逐條執行 選擇結構 當達到某種條件時,執行特定的語句或語句塊。if單分支 if 邏輯條件表示式 語句或語句塊 條件為真時執行 雙分支 if 邏輯表示式 語...

程式流程控制

1 順序結構 程式從上到下一行一行執行的結構,中間沒有判斷和跳轉,直到程式結束。2 if條件語句 應用格式一 if 條件語句 執行語句塊 應用格式二 if 條件語句 執行語句塊1 elseelse if 條件語句2 執行語句塊2 else if 條件語句n 執行語句塊n else 執行語句塊n 1 ...