Zahl aus Datei einlesen , Format passt nicht

[Popov]

Delphi-Quellcode:

var
  fs: TFormatSettings;
  s: string;
  e: Extended;
begin
  fs.DecimalSeparator :=  '.';
  s := '1234.567';

  e := StrToFloat(s, fs);
  e := e * 2;

  s := FloatToStr(e, fs);
  ShowMessage(s);
end;

Man kann ein beliebiges Trennzeichen wählen:

Delphi-Quellcode:

var
  fs: TFormatSettings;
  s: string;
  e: Extended;
begin
  fs.DecimalSeparator :=  '~'; //Tilde
  s := '1234~567';

  e := StrToFloat(s, fs);
  e := e * 2;

  s := FloatToStr(e, fs);
  ShowMessage(s);
end;