paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-04-24 03:59:12 +02:00
Code Issues Packages Projects Releases Wiki Activity

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

Browse Source 
git-svn-id: trunk@34966 -
This commit is contained in:
michael 2016-11-26 13:53:27 +00:00
parent 629d8277da
commit 784da563ef
2 changed files with 12 additions and 0 deletions

11
rtl/inc/objpas.inc
View File

@ -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;

1
rtl/inc/objpash.inc
View File

@ -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;