ThousandSeparator - nur ein Mythos?

[mmw]

hallo,

so sollte es funktionieren.

Delphi-Quellcode:

const
  Zahl: Extended = 1234567890;

var
  AFormatSettings: TFormatSettings;


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

Gruß