Tausender-Trennzeichen in einem Zahlenstring einfügen

[Mystic]

Zitat von TypusMensch:

Nein... bei der ersten Variante macht er teilweise Punkte zuviel...

Liegt daran dass das FormatFloat bereits das fertige Ergebnis mit Punkten liefert.

Funktioniert DOCH:

Delphi-Quellcode:

program Project1;

{$APPTYPE CONSOLE}

uses
  SysUtils;

var
  s1,s2,s3: string;
  r1: extended;

function ThouSep2(s: String): String; overload;
begin
  Result := FormatFloat(',0.00',StrToFloat(s)); //die einzige einzufügende Zeile - LOOOOL
end;

function ThouSep2(r: extended): String; overload;
begin
  Result := FormatFloat(',0.00',r); //die einzige einzufügende Zeile - LOOOOL
end;

begin
  s1 := '103493913495,46';
  r1 := 138420083240.13;
  s2 := ThouSep2(s1);
  s3 := ThouSep2(r1);
  writeln(s2);
  writeln(s3);
  readln;
end.

Ausgabe:

103.493.913.495,46
138.420.083.240,13