paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-04-17 06:20:57 +02:00
Code Issues Packages Projects Releases Wiki Activity

* Allow ToString for object value

Browse Source
This commit is contained in:
Michaël Van Canneyt 2024-05-13 14:21:13 +02:00
parent 4e4fcaa8a2
commit 9f5a420504
1 changed files with 12 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

12
packages/rtl-objpas/src/inc/rtti.pp
View File

@ -4028,6 +4028,10 @@ begin
end;
function TValue.ToString: String;
var
Obj : TObject;
begin
if IsEmpty then
Exit('(empty)');
@ -4046,6 +4050,14 @@ begin
tkEnumeration: Result := GetEnumName(TypeInfo, Integer(AsOrdinal));
tkChar: Result := AnsiChar(FData.FAsUByte);
tkWChar: Result := UTF8Encode(WideChar(FData.FAsUWord));
tkClass :
begin
Obj:=AsObject;
if Assigned(Obj) then
Result:=Obj.ToString
else
Result:='<Nil>';
end
else
result := '<unknown kind>';
end;