Ganzzahl mit Tausenderzeichen darstellen

[Cogito]

Hallo zusammen,

ich habe in einem Feld eine (Ganz)Zahl und möchte diese gerne mit Tausenderzeichen darstellen, aber lokalisiert. Das heißt, im deutschen mit ., im englischen mit komma. Ich versuche das mit TFormatSettings und dem Format Befehl, aber irgendwie krieg ich dauernd errors. Kann mir einer helfen?

[p80286]

Hallo Cogito,

Was für Fehlermeldungen bekommst Du denn?

Gruß
K-H

[Satty67]

Also ich weis nicht wie es bei neueren Delphi-Versionen ist, aber bei D5 hab' ich keine passende Funktion gefunden. Forma() bietet das ja nur für reelle Zahlen an.

Hab' mir selber was gebastelt, vieleicht reicht das ja:

Delphi-Quellcode:

function IntToStrF(Int : Int64) : string;
var
  i : Integer;
begin
  Result := IntToStr(Int);
  i := Length(Result) -3;
  while i > 0 do begin
    Insert(ThousandSeparator, Result, i+1);
    dec(i,3);
  end;
end;

€: Funktions-Name geändert, damit es zu FloatToStrF passt.

[uwewo]

Hallo Cogito,

Zitat von Cogito:

ich habe in einem Feld

soll wohl heissen ein DB Feld, wenn ja öffne den Feld Editor.
Markiere das Feld und stelle im OI das DisplayFormat auf #,###.##

Habe kein Delphi hier aber ich glaube es ist DisplayFormat.

Uwe

[himitsu]

per Code mach ich es meistens so
Format('%.0n', [x / 1]) (wichtig ist dabei das /1 ... man kann aber auch *1.0 machen)