Merge pull request #17 from antoniojmsjr/master

Melhorias na geração do JSON da classe EHorseException

Author: viniciussanchez

Src/Horse.HandleException.pas

@@ -42,24 +42,7 @@ procedure HandleException(Req: THorseRequest; Res: THorseResponse; Next: {$IF DE
       raise;
     on E: EHorseException do
     begin
-      LJSON := TJSONObject.Create;
-      LJSON.{$IF DEFINED(FPC)}Add{$ELSE}AddPair{$ENDIF}('error', E.Error);
-      if not E.Title.Trim.IsEmpty then
-      begin
-        LJSON.{$IF DEFINED(FPC)}Add{$ELSE}AddPair{$ENDIF}('title', E.Title);
-      end;
-      if not E.&Unit.Trim.IsEmpty then
-      begin
-        LJSON.{$IF DEFINED(FPC)}Add{$ELSE}AddPair{$ENDIF}('unit', E.&Unit);
-      end;
-      if E.Code <> 0 then
-      begin
-        LJSON.{$IF DEFINED(FPC)}Add{$ELSE}AddPair{$ENDIF}('code', {$IF DEFINED(FPC)}TJSONIntegerNumber{$ELSE}TJSONNumber{$ENDIF}.Create(E.Code));
-      end;
-      if E.&Type <> TMessageType.Default then
-      begin
-        LJSON.{$IF DEFINED(FPC)}Add{$ELSE}AddPair{$ENDIF}('type', GetEnumName(TypeInfo(TMessageType), Integer(E.&Type)));
-      end;
+      LJSON := TJSONObject.ParseJSONValue(E.ToJSON) as TJSONObject;
       SendError(Res, LJSON, Integer(E.Status));
     end;
     on E: Exception do