paweld/pas2js
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/pas2js.git synced 2025-04-07 08:47:49 +02:00
Code Issues Packages Projects Releases Wiki Activity

More to string types.

Browse Source
This commit is contained in:
Henrique Gottardi Werlang 2024-02-23 07:35:19 -03:00
parent 5042c69e56
commit 61bce04d28
1 changed files with 4 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
packages/rtl/src/rtti.pas
View File

@ -1134,11 +1134,13 @@ begin
Exit('(empty)');
case Kind of
tkString: Result := AsString;
tkInteger: Result := IntToStr(AsNativeInt);
tkBool: Result := BoolToStr(AsBoolean, True);
tkClass: Result := AsObject.ClassName;
tkClassRef: Result := AsClass.ClassName;
tkEnumeration: Result := GetEnumName(TTypeInfoEnum(TypeInfo), AsOrdinal);
tkFloat: Result := FloatToStr(AsExtended);
tkInteger: Result := IntToStr(AsNativeInt);
tkString: Result := AsString;
else
Result := '';
end;