ThousandSeparator - nur ein Mythos?

[hhcm]

Das verstehe ich nicht.

Delphi-Quellcode:

program Project;

{$APPTYPE CONSOLE}

{$R *.res}

uses
  System.SysUtils;

var
  AFormatSettings: TFormatSettings;

const
  Zahl: Extended = 1234567890;

begin
  try
    AFormatSettings := TFormatSettings.Create;
    AFormatSettings.ThousandSeparator := #32; // Oder auch so ' '
    Writeln(Format('%n', [Zahl], AFormatSettings));
    Readln;
  except
    on E: Exception do
      Writeln(E.ClassName, ': ', E.Message);
  end;

end.

Ergibt bei mir (10.4 und 11 Pro)

Code:

1 234 567 890,00