程序流程的辅助控制-转

Abort    //激发异常退出，如果在 try 块中，except 和 finally 的程序会执行
Exit    //正常退出，如果在 try 块中，except 和 finally 的程序会执行
Halt    //非正常结束程序，可有 Integer 参数给操作系统，windows 程序一般使用：Application.Terminate
RunError    //生成一个运行时错误，并退出程序。参数是 Byte 型，默认0
Continue    //结束当前循环进入下一循环
Break    //结束循环
Sleep    //暂停多少毫秒

goto 语句

procedure TForm1.Button1Click(Sender: TObject);
var
  x: 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'