Integer mit tausender trennzeichen ausgeben

[Amateurprofi]

Zitat von 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;

Versuch das mal mit NewIntToStr(-100,'.');
Ergebnis ist "-.100"

Besser so:

Delphi-Quellcode:

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

[himitsu]

Oder eine der "fertigen" Lösungen. :angke2:

[Schwedenbitter]

Zitat von himitsu:

...
Sowas nutze ich seit vielen Jahren:
S := Format('%.0n', [MyInteger / 1]);

@himitsu
Dieser Code ist sehr schön, kurz und präzise. Ich persönlich ziehe (neuerdings) auch Format dem FormatFloat vor, weil man die Ausgaben vollständig formulieren kann und sich damit Ketten wie

Delphi-Quellcode:

Begin
   Msg:= FormatFloat('0,', Pos) + ' von ' + FormatFloat('0,' fCount) + ' Dateien wurden fertiggestellt. [' + IntToStr(fRemain) + ' Sek. verbleibend]';
   Msg:= Format('%.0n von %.0n Dateien wurden fertiggestellt. [%.0n Sek. verbleibend]', [Pos / 1, fCount / 1, fRemain / 1]);
End;

ersparen kann und man gerade bei den Leerzeichen Fehler vermeidet. Zudem macht es das externe Ablegen/Erweitern mit anderen Sprachen einfacher.

Deinen Code findet man gleich als erstes auch über google. Deshalb hätte ich noch eine klitzekleine Bitte/Verbesserungsvorschlag:
Da ich nicht aufmerksam las und Format(); - jedenfalls bei mir - keinerlei Fehler anzeigt, habe ich die Integer-Werte übergeben und mich fast 2h gewundert, dass nichts klappt. Und das genau so lange, bis mir auffiel, dass aus einem Integer- ein Gleitzahl-Wert durch /1 gemacht werden muss. Ich denke, es würde zukünftigen Suchern/Lesern erheblich vereinfachen, wenn Du das nochmal dort auffällig(er) anmerken könntest!


Ich habe in der Hilfe nichts zur Zeit gefunden. Kann man mit Format(); auch gleich Ausgaben wie [00:25] erzeugen.

[PeterPanino]

Zitat von himitsu:

Sowas nutze ich seit vielen Jahren:
S := Format('%.0n', [MyInteger / 1]);

Ich nehme an, im Englischen wird statt des Punktes ein Komma ausgegeben? (Bei regionalen Default-Einstellungen)

[himitsu]

Nein.

Der FormatString hat nichts mit Sprachen zu tun.
Der ist immer quasi englisch, aber beim Result sieht es anders aus.

Zitat von Schwedenbitter:

Ich habe in der Hilfe nichts zur Zeit gefunden. Kann man mit Format(); auch gleich Ausgaben wie [00:25] erzeugen.

SysUtils.Format und string.Format bieten leider keine Formatierungen für Zeitangaben ... auschließlich nummerische Formatierungen.

Bleibt also nur Mathematik

Delphi-Quellcode:

Format('%2.d:%2.d', [d * 24, (d * 24 * 60) mod 60])  // TTime, bzw. Trunc oder TimeOf für TDateTime 
Format('%2.d:%2.d', [HourOf(d), MinuteOf(d)])

[TigerLilly]

Zitat von PeterPanino:

Zitat von himitsu:

Sowas nutze ich seit vielen Jahren:
S := Format('%.0n', [MyInteger / 1]);

Ich nehme an, im Englischen wird statt des Punktes ein Komma ausgegeben? (Bei regionalen Default-Einstellungen)

Ja, richtig. Format('%.0n' formatiert mit 1000er Trennzeichen. Danke an DaddyH für den Hinweis.

[DeddyH]

Als Tausendertrenner? Sicher?

[himitsu]

Ach Mist, falschrum verstanden.
Dort wird das Tausenderkomma verwendet, aber das hat nicht "direkt" mit diesem . hier zu tun,
aber ja, ausgegeben wird jeweils das Dezimaltrennzeichen im globalen oder übergebenen FormatSettings.

Beim FormatString im FloatFormat und Dergleichen ist das "eindeutiger" und hängt unmittelbar zusammen.
Format/Dezimal-"Punkt" '###.###' = verwende das Char aus FormatSettings.DecimalSeparator als Dezimaltrennzeichen
und das Format-"Komma" '###,###' = verwende das Char aus FormatSettings.ThousandSeparator als Tausendertrennzeichen
und das Zeichen '###"."###' = verwende immer den String/Zeichen

[Amateurprofi]

Zitat von 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:
S := Format('%.0n', [MyInteger / 1]);

So einfach, aber muss man erstmal drauf kommen.
Hab ich per Zufall gefunden, und die Lösung gekriegt, für ein Problem, das ich hatte.
Danke dafür.

[Delphi.Narium]

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