zoukankan      html  css  js  c++  java
  • Delphi之Raise抛出异常

    相关资料:

    http://blog.csdn.net/a20071426/article/details/10160171

    实例代码:

    复制代码
     1 unit Unit1;
     2 
     3 interface
     4 
     5 uses
     6   Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
     7   Dialogs, StdCtrls;
     8 
     9 type
    10   TForm1 = class(TForm)
    11     Button1: TButton;
    12     procedure Button1Click(Sender: TObject);
    13   private
    14     { Private declarations }
    15   public
    16     { Public declarations }
    17   end;
    18 
    19 var
    20   Form1: TForm1;
    21 
    22 implementation
    23 
    24 {$R *.dfm}
    25 
    26 procedure TForm1.Button1Click(Sender: TObject);
    27 var
    28   int1: Integer;
    29 begin
    30   try
    31     int1 := StrToInt('A');
    32   except
    33     raise Exception.CreateFmt('%d = %s',[1001, '您的程序在Unit1单元32行出错了!']);
    34   end;
    35 end;
    36 
    37 end.
    复制代码
    http://www.cnblogs.com/FKdelphi/p/6281539.html
     
  • 相关阅读:
    Linux 相关scsi命令
    存储
    Multipath多路径冗余全解析
    Oracle中alter system命令参数之scope
    scipy安装失败
    font
    查看端口占用
    oracle参数优化
    组播
    sql给整数补零
  • 原文地址:https://www.cnblogs.com/findumars/p/6858516.html
Copyright © 2011-2022 走看看