paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-08-29 21:20:24 +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
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

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