Tausender- Trennzeichen in einem Zahlenstring einfügen

[Daniel B]

Hallo,

Delphi-Quellcode:

function ThouSep(sTemp: String; cTemp: Char): String;
var
  iTemp: Integer;
begin
  Result := sTemp;
  iTemp := Length(sTemp) -2;
  while iTemp > 1 do begin
    Insert(cTemp, Result, iTemp);
    iTemp := iTemp -3;
  end;
end;

procedure TForm1.Button18Click(Sender: TObject);
begin
  ShowMessage(ThouSep('87234723847234639491730297', '.'));
end;

Grüsse, Daniel