paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-11-11 15:49:38 +01:00
Code Issues Packages Projects Releases Wiki Activity

* take care of locale decimal separator in test

Browse Source 
git-svn-id: trunk@13423 -
This commit is contained in:
florian 2009-07-22 17:52:34 +00:00
parent 04a796628c
commit c8c3262815
1 changed files with 6 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

10
tests/webtbs/tw11309.pp
View File

@ -5,8 +5,8 @@
uses uses
SysUtils; SysUtils;
const var
csMoney = '58.195'; csMoney : string;
Function Format_Currency_String1(sMoney : string) : string; Function Format_Currency_String1(sMoney : string) : string;
var var
@ -34,10 +34,12 @@ result := FloatToStrF(aCurrency,ffFixed,19,2);
end; end;
begin begin
csMoney:='58'+DecimalSeparator+'195';
writeln(Format_Currency_String1(csMoney)); writeln(Format_Currency_String1(csMoney));
writeln(Format_Currency_String2(csMoney)); writeln(Format_Currency_String2(csMoney));
if Format_Currency_String1(csMoney)<>'58.20' then if Format_Currency_String1(csMoney)<>'58'+DecimalSeparator+'20' then
halt(1); halt(1);
if Format_Currency_String2(csMoney)<>'58.20' then if Format_Currency_String2(csMoney)<>'58'+DecimalSeparator+'20' then
halt(2); halt(2);
writeln('ok');
end. end.