format string

[Slayer]

Aloa

ich würd gern ne Dateigröße so anzeigen das alle 3 stellen ein punkt kommt ...
123.456.789.123 also so .. aus der hilfe bin ich mal wieda nich so ganz schlau geworden leida ..

[Peda]

%n im FormatString sollte das zugehörige Argument in Tausender-gruppen aufsplitten.

[Slayer]

öhmöhmöhm kannst du mir da n kurzes bsp tippen weil ich werd da nich so 100%ig schlau draus .. hatte das prob schon mal ..

[Peda]

etwa so:

hm, an der HTML-Formatierung haperts noch ein wenig, daweil mal so:

procedure TForm1.Button1Click(Sender: TObject);
var
  Size: Real;
begin
  Size := 123456789;
  Caption := Format('Größe in Tausendergruppen: %n', [Size]);
end;

[Slayer]

schlag mich aber ich kriegs net hin was schreib ich denn bei größe in tauserdergruppen hin ? ich hasse das ... bitte nur noch diese antw, machs doch mal ganz konkret wenn ich jetz nach 4 stellen imma n punkt will ...

[Peda]

ok, ganz konkret. im Prinzip ist es nur das: (liefert einen String):

Format('%n', [1234567890]);

Das 'Größe in Tausendergruppen' war nur just for fun, quasi als Erklärung...
nur diese '4' in deinem letzten Posting verwirrt mich. Willst du jetzt nach allen 3 Stellen, (wie ganz oben steht) oder nach 4 Stellen einen Punkt?

[Rainer]

Also mich verwirrt die 4 auch ein wenig, aber vielleicht stört ihn die ,00 die angehängt wird:

2 Varianten ohne Nachkommaanteil.

procedure TForm1.Button1Click(Sender: TObject);
var
  r: Extended;
begin
  r := 123456789;
  ShowMessage(Format('%0.0n', [r]));
  ShowMessage(FormatFloat('#,', r));
end;

[Slayer]

ok ich der fehler lag wieda ganz wo anders ... danke dir aba trotzdem dafür auch wenns net das is was ich gesucht hab weil dieses hässliche komma am ende will ich ja auch net haben hehe ...

Editiert :
@rainer
ja das stört mich irgendwie schon aber wie gesagt der fehla lag ja noch wo anders .. auf alle fälle gehts jetz ...

DANKE :)

PS: will jemand meiner
"String-Formatier-Hasser e.v." beitreten ? haha