Tausender-Trennzeichen in einem Zahlenstring einfügen

[TypusMensch]

Erweiterte Funktion von Daniel B
siehe Beitrag

Erweitert wurde, dass sowohl Kommazahlenstrings, als auch einfache Zahlenstrings unterschieden werden und daraufhin die Trennzeichen gesetzt werden.

ThX an Daniel für die Vorlage...

Delphi-Quellcode:

function ThouSep2(sTemp: String; cTemp: Char): String;
var
  iTemp: Integer;
  i : Integer;
  komma:boolean;

begin

komma := False;
for i := 1 to Length(sTemp) do
  begin
  if sTemp[i] = ',' then komma := true;
  end;

if komma = True then
  begin
  Result := sTemp;
  iTemp := Length(sTemp) -5;
  while iTemp > 1 do
    begin
    Insert(cTemp, Result, iTemp);
    iTemp := iTemp -3;
    end;
  end;

if komma = False then
  begin
  Result := sTemp;
  iTemp := Length(sTemp) -2;
  while iTemp > 1 do
    begin
    Insert(cTemp, Result, iTemp);
    iTemp := iTemp -3;
    end;
  Result := Result + ',00';
  end;
end;