我希望默认的http错误代码为500。
我无法覆盖构造函数(我已经找到了一些文档,但编译器说“祖先类中没有要被覆盖的方法:“constructor HttpError.Create(const AnsiString);”)。
我尝试将“Default 500”添加到状态属性定义中,但它也不起作用(我看到0)。
我如何实现默认情况下状态为
我无法覆盖构造函数(我已经找到了一些文档,但编译器说“祖先类中没有要被覆盖的方法:“constructor HttpError.Create(const AnsiString);”)。
我尝试将“Default 500”添加到状态属性定义中,但它也不起作用(我看到0)。
我如何实现默认情况下状态为
500
的值?{$IFDEF FPC}
{$MODE DELPHI}
{$ENDIF}
program test;
uses
SysUtils;
Type
{:Base http exception}
HttpError = class(Exception)
private
FStatus: Integer;
published
property Status: Integer Read FStatus Write FStatus Default 500;
end;
begin
try
Raise HttpError.Create('Ooops');
except
on e: HttpError do
WriteLn(e.Status);
end;
end.