Integer mit tausender trennzeichen ausgeben

[BBoy]

Hallo,
ich möchte eine integer auf einem label ausgeben aber mit tausender trennzeichen. Also so: 4.356.567
Das soll wohl mit Format gehen, aber ich bekomme das einfach nicht hin, wäre nett wenn jemand helfen könnte :)

[himitsu]

Integer Tausendertrennzeichen

OK, das "Tausendertrennzeichen" ist ein zu langes Wort, für die DP-Suche,
aber Integer Tausendertrennzeichen (rechts oben auf "DelphiPRAXiS" umschalten)


Sowas nutze ich seit vielen Jahren:

Delphi-Quellcode:

S := Format('%.0n', [MyInteger / 1]);

[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:

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

Delphi-Quellcode:

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;

[himitsu]

Da NewIntToStr doch vorallem für die Tausenderpunkte da ist, sollte dann Dots nicht besser standardmäßig mit ThousandSeparator vorbelegt sein?
Und warum "New"? Die Funktion ist doch nicht "neu", sondern "anders" ... halt mit "punkten".

PS:

Delphi-Quellcode:

NewIntToStr(-123456798, '.')

:stupid: