paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-08-11 18:06:12 +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; end;
function TValue.ToString: String; function TValue.ToString: String;
var
Obj : TObject;
begin begin
if IsEmpty then if IsEmpty then
Exit('(empty)'); Exit('(empty)');
@ -4046,6 +4050,14 @@ begin
tkEnumeration: Result := GetEnumName(TypeInfo, Integer(AsOrdinal)); tkEnumeration: Result := GetEnumName(TypeInfo, Integer(AsOrdinal));
tkChar: Result := AnsiChar(FData.FAsUByte); tkChar: Result := AnsiChar(FData.FAsUByte);
tkWChar: Result := UTF8Encode(WideChar(FData.FAsUWord)); tkWChar: Result := UTF8Encode(WideChar(FData.FAsUWord));
tkClass :
begin
Obj:=AsObject;
if Assigned(Obj) then
Result:=Obj.ToString
else
Result:='<Nil>';
end
else else
result := '<unknown kind>'; result := '<unknown kind>';
end; end;