delphi - System.RunError

本文整理自网络，侵删。

 学习官方示例 - System.RunError
unit Unit1;

interface

uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls;

type
TForm1 = class(TForm)
Button1: TButton;
procedure Button1Click(Sender: TObject);
end;

var
Form1: TForm1;

implementation

{$R *.dfm}

var P: Pointer;

procedure TForm1.Button1Click(Sender: TObject);
begin
if P = nil then
RunError(204);
end;

end.

 

相关阅读 >>

Delphi 2009 中的泛型

Delphi 利用tcomm组件 spcomm 实现串行通信

Delphi格式化函数format、formatdatetime和formatfloat

Delphi 判断图像格式bmp jpg gif pcx png psd ras sgi tiff err

Delphi 几个实用的html解析函数

Delphi里树形菜单的实现

Delphi url 编码的装换

Delphi 随鼠标移动的十字线的快速画法

Delphi xe(indy10)tidbytes转ansistring的实现

Delphi 10.3 中安装程序自动升级插件autoupgrader_pro_v5.2

更多相关阅读请进入《Delphi》频道 >>

转载请注明出处：木庄网络博客 » delphi - System.RunError