fpcsrc/tests/webtbs/tw13552.pp


1
2
3
4
5
6
7
8
9
10
11
12
13

uses
  sysutils;

var
  s: ansistring;
begin
  ThousandSeparator:=#0;
  DecimalSeparator:='.';
  s:=formatfloat('#,0.00',1000.0);
  writeln(s);
  if (s<>'1000.00') then
    halt(1);
end.