程式流程的輔助控制 轉

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
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
'

程式流程的輔助控制 轉

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 ...