Integer mit tausender trennzeichen ausgeben

[Uwe Raabe]

Wer sich an neumodischen Kram traut kann es auch so schreiben: S := Format('%.0n', [MyInteger.ToDouble]);

[Amateurprofi]

Zitat von Uwe Raabe:

Wer sich an neumodischen Kram traut kann es auch so schreiben: S := Format('%.0n', [MyInteger.ToDouble]);

Wer sich an neumodischen Kram traut, und bei dem dieser neumodische Kram verfügbar ist, ...
Trotzdem Danke!

[Amateurprofi]

Zitat von Delphi.Narium:

Meine Lösung dafür ist immer S := Format('%.0n', [MyInteger + 0.0]);

Auch schön.

[BBoy]

vielen dank! Funktioniert prima

[Wolfgang Mix]

@himitsu:
Deine Suchwortkombination bringt aber auch nix

[lbccaleb]

Hab auch noch was etwas komplizierteres, aber funzt

Delphi-Quellcode:

function PointDelimiter(Argument: string; TrennChar: char): string;
var n,i: integer;
begin
  Result := Argument;
  n := Length(Result);
  if n > 3 then begin
    i := 0;
    While n > 0 do begin
      inc(i);
      if (i >= 3) and (n > 1) then begin
        Insert(TrennChar,Result,n);
        i := 0;
      end;
      dec(n);
    end;
  end;
end;

function IntToStrWithDots(Int: Int64): string;
  begin
    Str(Int, Result);
    Result := PointDelimiter(Result, '.');
  end;

//Anwendung:
IntToStrWithDots(1000000000) //gibt '1.000.000.000' aus

[mkinzler]

Wenn die entsprechende Konstante gesetzt ist ( thousandseparator), sollte es auch mit einem simplen
IntToStr() gehen

[himitsu]

IntToStr aka CvtInt gibt niemals Tausendertrennzeichen zurück, da dieses in der Funktion nicht eingebaut ist.

Zitat von Wolfgang Mix:

@himitsu:
Deine Suchwortkombination bringt aber auch nix

[alzaimar]

FormatFloat wäre auch noch ein Kandidat. Der Formatierungsstring entsprich dem, der bei Tabellenfeldern verwendet wird. Hier wäre das

GanzZahlMitTausenderTrennzeichen := FormatFloat('0,', GanzZahl);

[derMischka]

Delphi-Quellcode:

function NewIntToStr(aValue: int64; Dots: Char=#0): String;
var ii  : integer;
begin
  Result := IntToStr(aValue);
  if Dots < ' ' then exit;
  ii := length(Result) - 2;
  while ii > 1 do
  begin
    Insert(Dots,Result,ii);
    dec(ii,3);
  end;
end;