摘要： procedure TForm1.Button1Click(Sender: TObject); var w: Word; r: Byte; begin w := $1234; //10进制 4660 {$R+} //如果添加越界检查，程序将提示错误，不能继续执行 r := w; //如果没有越界检查，r 将获取 w 的低 8 位 $34 ShowMessage(... 阅读全文

摘要： Abort //激发异常退出，如果在 try 块中，except 和 finally 的程序会执行 Exit //正常退出，如果在 try 块中，except 和 finally 的程序会执行 Halt //非正常结束程序，可有 Integer 参数给操作系统，windows 程序一般使用：Application.Terminate RunError //生成一个运行时错误，并退出程序。参数是 ... 阅读全文