예외시 ErrorCode 설정

Question

예외가 발생하면 오류 코드를 포함시켜야합니다.

type EInOutError = class(Exception) 
     ErrorCode: Integer; 
    end; 

Exceptions (Delphi)

하지만 어떻게 오류 코드를 설정하는 생각이 없습니다. 나는 시도 :

이

type ECustomError= class(Exception) 
     ErrorCode: Integer=129; 
    end; 

는하지만 아무도 성공, 어떻게 오류 코드를 설정할 수 없다?

Answer 1

클래스 정의에서이를 설정할 수 없으며 설정할 수 없습니다. 어디에서 왜 호출되고 있는지에 대한 컨텍스트가 없습니다. 대신이 예외가 발생할 수있는 모든 위치에서 런타임에이 함수를 할당해야합니다.

이것은 EInOutError에서 클래스를 파생과에 사용자 정의 생성자를 추가하여 수행 할 수 있습니다 : 당신이 예외를 발생시킬 때

type 
    ECustomError = class(EInOutError) 
    public 
    constructor Create(AMsg: String; ACode: Integer); reintroduce; 
    end; 

constructor ECustomError.Create(AMsg: String; ACode: Integer); 
begin 
    inherited Create(AMsg); 
    ErrorCode := ACode; 
end; 

그런 다음, 당신이 그렇게 같이 호출을 ...

raise ECustomError.Create('Some error message', 129); 

당신은 조금 더 가서 메시지에이 코드를 추가 할 수 있습니다 ...

constructor ECustomError.Create(AMsg: String; ACode: Integer); 
begin 
    inherited CreateFmt('%s (Error Code %d)', [AMsg, ACode]); 
    ErrorCode := ACode; 
end;