moparisthebest/Simba
1
0
Fork 0
mirror of https://github.com/moparisthebest/Simba synced 2025-02-16 15:20:09 -05:00
Code Issues Releases Wiki Activity

New rev number + Made writeln convert floats correctly.

Browse Source
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; CastaliaSimplePasPar, v_AutoCompleteForm, PSDump;
const const
SimbaVersion = 687; SimbaVersion = 690;
type type

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

@ -30,6 +30,8 @@ begin;
result := PSGetAnsiString(Data.Dta,data.aType) result := PSGetAnsiString(Data.Dta,data.aType)
else if data.aType.ExportName = 'BOOLEAN' then else if data.aType.ExportName = 'BOOLEAN' then
result := BoolToStr(PSGetInt(Data.Dta,data.aType) <> 0,true) 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 else
result := PSVariantToString(data,''); result := PSVariantToString(data,'');
end; end;