* Let ToString return something meaningful for Exception

git-svn-id: trunk@26969 -

rtl/objpas/sysutils/sysutilh.inc

@@ -119,9 +119,11 @@ type
       constructor CreateResHelp(ResString: PString; AHelpContext: Integer);
       constructor CreateResFmtHelp(ResString: PString; const Args: array of const;
         AHelpContext: Integer);
+      Function ToString : String; override;  
       { !!!! }
       property HelpContext : longint read fhelpcontext write fhelpcontext;
       property Message : string read fmessage write fmessage;
+      
    end;
 
    ExceptClass = class of Exception;

rtl/objpas/sysutils/sysutils.inc

@@ -231,6 +231,10 @@ end;
        fhelpcontext:=AHelpContext;
     end;
 
+    Function Exception.ToString : String;
+    begin
+      Result:=ClassName+': '+Message;
+    end;
 
     procedure EHeapMemoryError.FreeInstance;
     begin