Kommastellen abschneiden

[paffii]

Hallo,

in Pascal gibt es die Funktion, Kommastellen einzustellen mit z.B. "variable:4:2"
Leider finde ich sowas nicht in Lazarus. Finde nur Hinweise zu Round, Trunc, etc..dabei möchte ich einfach nur abschneiden.

Ich habe

Code: Alles auswählen

verbrauch:=W*t*365/1000;

und

Code: Alles auswählen

 jahresverbrauch.text:=floattostr(verbrauch);

und möchte den jahresverbrauch mit nur 2 Stellen hinter dem Komma darstellen

danke..

[fliegermichl]

Code: Alles auswählen

jahresverbrauch.text := Format('%.2f', [verbrauch]);

Der Formatstring kann auch mehr Text enthalten. z.B.

Code: Alles auswählen

jahresverbrauch.text := Format('Der Jahresverbrauch beträgt %.2f Liter bei %d gefahrenen Kilometern.', [verbrauch, km]);

wobei die Parameter zu den Platzhaltern passen müssen. verbrauch muß also eine Fliesskommazahl (Single, Double, Extended etc.) und km eine ordinalvariable (Byte, Integer, Longint etc.) sein.

[wennerer]

Hallo,
eine weitere Möglichkeit ist der Befehl FloattoStrF.
Eine Beschreibung findest du hier:
https://www.freepascal.org/docs-html/rt ... ostrf.html
Und so könnte es aussehen:

Code: Alles auswählen

jahresverbrauch.text:=floattostrf(verbrauch,ffNumber,8,2);

Wenn du es in einem längeren Text einbetten willst geht das natürlich auch:

Code: Alles auswählen

Label1.Caption:='Mein Jahresverbrauch ist: '+floattostrf(verbrauch,ffNumber,8,2)+' Liter';

Da finde ich aber die Variante von Fliegermichl eleganter.

Viele Grüße
Bernd

[Mathias]

Oder man verwendet den alten Pascal Klassiker Str(...).
https://wiki.freepascal.org/Str/de
Wen man viele Zahlen umwandeln will, ist das die schnellste Variante.

[paffii]

Wow, was für eine tolle Hilfe hier
Vielen Dank euch..

Andreas

[wp_xyz]

Man sollte vielleicht noch anfügen, dass die Routinen Format(), FloatToStrF() und das (noch nicht genannte) FormatFloat() die Ländereinstellungen des Betriebssystems verwenden, um Dezimalzahlen darzustellen. Dabei wird bei uns in Deutschland immer ein Komma verwendet. Wenn du lieber einen Dezimalpunkt willst, musst du die von Mathias genannte Str()-Prozedur nehmen (was aber meist eine Zwischen-Variable erfordert, weil es sich um eine Prozedur, keine Funktion handelt); oder du gibst in den erstgenannten Funktionen als letzten Parameter entsprechend abgeänderte FormatSettings an:

Code: Alles auswählen

var
  fs: TFormatSettings;
...
  fs := DefaultFormatSettings;
  fs.DecimalSeparator := '.';
  JahresVerbrauch.Text := Format('%.2f', [verbrauch], fs);
  //oder: Jahresverbrauch.Text := FloatToStrF(verbrauch, ffNumber, 8, 2, fs);
  // oder: Jahresverbrauch.Text := FormatFloat('0.00', verbrauch, fs);  

[Mathias]

musst du die von Mathias genannte Str()-Prozedur nehmen (was aber meist eine Zwischen-Variable erfordert, weil es sich um eine Prozedur, keine Funktion handelt);

Mit FloatToStrF wird intern auch nicht aus diese Variable verzichtet. Wen man tief in fpc reinguckt, wird schlussendlich auch Str() verwendet.
Und mit sehr viel Overhead.

Code: Alles auswählen

  If (P<>0) Then
    S[P] := '.';
  try
    Val(trim(S),Value,E);  

[wp_xyz]

Dem Anwender einer Float-zu-String-Konvertierungsroutine ist weitgehend egal, was intern alles passiert. Wichtig für ihn ist die Anwendung der Routine. Und da ist die Prozedur str() nunmal etwas unpraktischer als die Funktionen FloatToStrF/Format/FormatFloat, die das, wofür Str() drei Zeilen braucht, in einer einzigen Zeile erledigen können:

Code: Alles auswählen

// Anwendung von str():
var s: String;
  Str(verbrauch, s);
  JahresVerbrauch.Text := s;
  
// Anwendung von Format
  JahresVerbrauch.Text := Format('%.2f', [verbrauch]);

[Mathias]

Es kommt immer auf den Anwendungsfall an. Für ein EditFeld ist FloatToStr perfekt. Da es den Ländereinstellungen angepasst wird.
Will ich aber eine grosse OBJ oder SVG Datei konventieren, ziehe ich Str() und Val() vor.

[gladio]

Eventuell, wenn von Bedeutung, da er nur abschneiden will:
Mindestens FormatFloat rundet auch recht ordentlich kaufmännisch.
Die anderen Varianten habe ich noch nie genutzt.