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

* Return delphi-compatible output for TValue.ToString when empty

Browse Source
This commit is contained in:
Michaël Van Canneyt 2024-02-22 14:41:51 +01:00
parent cbc938900f
commit 9c5bfbeb78
1 changed files with 3 additions and 1 deletions

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

@ -3984,6 +3984,8 @@ end;
function TValue.ToString: String;
begin
if IsEmpty then
Exit('(empty)');
case Kind of
tkWString,
tkUString : result := AsUnicodeString;
@ -4000,7 +4002,7 @@ begin
tkChar: Result := AnsiChar(FData.FAsUByte);
tkWChar: Result := UTF8Encode(WideChar(FData.FAsUWord));
else
result := '';
result := '<unknown kind>';
end;
end;