* Patch from Silvio Clecio to implement QualifiedClassName (bug ID 30985)

git-svn-id: trunk@34966 -

rtl/inc/objpas.inc

@@ -973,6 +973,17 @@
             result:='';
         end;
 
+      class function TObject.QualifiedClassName: ansistring;
+        var
+          uname: ansistring;
+        begin
+          uname := UnitName; //TODO: change 'UnitName' to 'UnitScope' as soon as RTL implement it
+          if uname='' then
+            result:=ClassName
+          else
+            result:=Concat(uname, '.', ClassName);
+        end;
+
       function TObject.Equals(Obj: TObject) : boolean;
         begin
           result:=Obj=Self;

rtl/inc/objpash.inc

@@ -249,6 +249,7 @@
 
           { new since Delphi 2009 }
           class function UnitName : ansistring;
+          class function QualifiedClassName: ansistring;
           function Equals(Obj: TObject) : boolean;virtual;
           function GetHashCode: PtrInt;virtual;
           function ToString: ansistring;virtual;