如何在Delphi中引发异常？

Question

我要求Delphi原生,而不是Prism(net).

这是我的代码:

raise Exception.Create('some test');

未声明的标识符"例外".

问题出在哪里,如何抛出/引发异常？

Answer 1

异常类"Exception"在单元SysUtils中声明.因此,您必须在uses-clause中添加"SysUtils".

uses
  SysUtils;

procedure RaiseMyException;
begin
  raise Exception.Create('Hallo World!');
end;

Answer 2

请记住将SYSUTILS添加到您的使用单位.

我还建议你一个很好的方法来跟踪类别,杂乱的格式和异常的含义:

Type TMyException=class
public
  class procedure RaiseError1(param:integer);
  class procedure RaiseError2(param1,param2:integer);
  class procedure RaiseError3(param:string);
end;

implementation

class procedure TMyException.RaiseError1(param:integer);
begin
  raise Exception.create(format('This is an exception with param %d',[param]));
end;

//declare here other RaiseErrorX

一种简单的使用方法是:

TMyException.RaiseError1(123);

Answer 3

您可能需要将sysutils添加到uses子句中,它不是内置的,并且根据Delphi简而言之是可选的.

Answer 4

你使用的是SysUtils不是吗？IIRC宣布了例外情况.