31 lines
635 B
ObjectPascal
31 lines
635 B
ObjectPascal
|
unit X2Log.Exception.Default;
|
||
|
|
|
||
|
|
interface
|
||
|
|
uses
|
||
|
|
System.SysUtils,
|
||
|
|
|
||
|
|
X2Log.Intf;
|
||
|
|
|
||
|
|
|
||
|
|
type
|
||
|
|
TX2LogDefaultExceptionStrategy = class(TInterfacedObject, IX2LogExceptionStrategy)
|
||
|
|
public
|
||
|
|
{ IX2LogExceptionStrategy }
|
||
|
|
procedure Execute(AException: Exception; var AMessage: string; var ADetails: string); virtual;
|
||
|
|
end;
|
||
|
|
|
||
|
|
|
||
|
|
implementation
|
||
|
|
|
||
|
|
|
||
|
|
{ TX2LogDefaultExceptionStrategy }
|
||
|
|
procedure TX2LogDefaultExceptionStrategy.Execute(AException: Exception; var AMessage, ADetails: string);
|
||
|
|
begin
|
||
|
|
if Length(AMessage) > 0 then
|
||
|
|
AMessage := AMessage + ': ';
|
||
|
|
|
||
|
|
AMessage := AMessage + AException.Message;
|
||
|
|
end;
|
||
|
|
|
||
|
|
end.
|