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

* partial fix for Mantis : apply partial, adjusted patch by Imants Gulbis to implement TValue.ToString for enumerations, AnsiChar and WideChar

Browse Source 
git-svn-id: trunk@43778 -
This commit is contained in:
svenbarth 2019-12-24 21:30:07 +00:00
parent 8ff14ed5d1
commit f782d3fe7a
1 changed files with 3 additions and 0 deletions

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

@ -2010,6 +2010,9 @@ begin
tkPointer : result := '(pointer @ ' + HexStr(FData.FAsPointer) + ')';
tkInterface : result := '(interface @ ' + HexStr(PPointer(FData.FValueData.GetReferenceToRawData)^) + ')';
tkInterfaceRaw : result := '(raw interface @ ' + HexStr(FData.FAsPointer) + ')';
tkEnumeration: Result := GetEnumName(TypeInfo, Integer(AsOrdinal));
tkChar: Result := AnsiChar(FData.FAsUByte);
tkWChar: Result := UTF8Encode(WideChar(FData.FAsUWord));
else
result := '';
end;