moparisthebest
/
Simba
mirror of https://github.com/moparisthebest/Simba
1
0
Fork 0
Code Issues Releases Wiki Activity

New rev number + Made writeln convert floats correctly.

This commit is contained in:
Raymond 2010-05-24 15:07:42 +02:00
parent b450298085
commit 478ebec14d
2 changed files with 3 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
Projects/Simba/simbaunit.pas
View File

@ -46,7 +46,7 @@ uses
CastaliaSimplePasPar, v_AutoCompleteForm, PSDump;
const
SimbaVersion = 687;
SimbaVersion = 690;
type

2
Units/MMLAddon/PSInc/Wrappers/other.inc
View File

@ -30,6 +30,8 @@ begin;
result := PSGetAnsiString(Data.Dta,data.aType)
else if data.aType.ExportName = 'BOOLEAN' then
result := BoolToStr(PSGetInt(Data.Dta,data.aType) <> 0,true)
else if data.aType.BaseType in [btExtended,btSingle,btDouble] then
result := FloatToStr(PSGetReal(data.Dta,data.aType))
else
result := PSVariantToString(data,'');
end;