Max. 3 Nachkommastellen

[Hawkeye219]

Hallo Carsten,

hast du den Einzeiler aus Beitrag #5 einmal getestet?

Gruß Hawkeye

[guidok]

Zitat:

Zitat von Carsten1234

Hallo zusammen,

bzgl. Runden mit 3, 4, 5 Nachkommastellen mit Hilfe von Format oder FormatFloatToStrF gibt es ja einiges zu lesen, doch zu meinem Problemchen im Betreff habe ich noch keine gute Lösung gefunden.
Ich möchte nämlich, dass ein Float max. 3 Nachkommastellen hat, optional aber auch weniger, wenn der Anwender weniger Nachkommastellen eingibt.
Bsp.:
1500 => 1500
100,01 => 100,01
0,3972 => 0,397
0,8767 => 0,877

Wie kann ich das denn möglichst einfach erreichen?

Dank vorab und Gruß, Carsten

Vielleicht verstehe ich das Problem nicht richtig, aber ist es nicht am einfachsten, die Format-Routine entsprechend der Anwendervorgabe aufzurufen:

Delphi-Quellcode:

case Vorgabe of
  1: Result:= Format('%0.1f', [AValue]);
  2: Result:= Format('%0.2f', [AValue]);
  3: Result:= Format('%0.3f', [AValue]);
end;

Alternativ könnte natürlich auch der Formatstring '%0.3f' entsprechend der Anwendervorgabe aufgebaut werden.

[rollstuhlfahrer]

HI,

also ich bevorzuge auch die Methode mit den Formatstrings.
Beispiel:

Delphi-Quellcode:

function Runden(Zahl: Extended; Nachkommastellen: Byte): string;
var
  NachStr: String;
begin
  Nachstr := IntToStr(Nachkommastellen);
  Result := Format('%1.' + Nachstr + 'f', [Zahl]);
end;

Bernhard

[himitsu]

@rollstuhlfahrer ... schau dir mal das * in den Format-Settings an :zwinker:

siehe mein Beitrag > http://www.delphipraxis.net/internal...048785#1048785
oder siehe Format

dakannst du dir das IntToStr und das etwas unübersichtliche Zusammensetzen sparen.

@guidok:
hier wird verlangt, daß der String maximal 3 Nachkommastellen hat ... aber Format selber kennt da nur die Definition "genau 3 Stellen"

[Lannes]

Hallo,

hab auch einen Einzeiler:

Delphi-Quellcode:

sErg := FloatToStr(StrToFloat(Format('%.3f',[e])));

[guidok]

Zitat:

Zitat von himitsu

@guidok:
hier wird verlangt, daß der String maximal 3 Nachkommastellen hat ... aber Format selber kennt da nur die Definition "genau 3 Stellen"

Zitat:

..optional aber auch weniger, wenn der Anwender weniger Nachkommastellen eingibt.

Ok, falsch interpretiert. Das klingt so, als ob der Anwender wählen kann wieviele Nachkommastellen er möchte, aber als Maximum (oder Vorgabe) drei eingestellt werden kann.

[himitsu]

@Lannes:

Delphi-Quellcode:

sErg := FloatToStr(Round(e * Power(10, n)) / Power(10, n));

aber bei all diesen Varianten ... es geht so nicht mehr, sobald dir die internen Rundungsfehler der Fließkommatypen einen Strich durch die Rechnung machen :angel2:

[Carsten1234]

Hallo,

Zitat:

Zitat von guidok

Vielleicht verstehe ich das Problem nicht richtig, aber ist es nicht am einfachsten, die Format-Routine entsprechend der Anwendervorgabe aufzurufen:

es gibt da keine Anwendervorgaben, wo er sagen könnte, ich will 1, 2 oder 3 Nachkommastellen. Die einzige Vorgabe (Beschränkung seitens der Anwendung) ist max. 3 Nachkommastellen in einem TEdit.
Vorher hatte ich beim OnExit-Event immer auf 3 Nachkommastellen "aufgrechnet". Wenn Anwender also 10,1 eingab, hatte ich daraus dann automatisch 10,100 gemacht, doch das fand man eine Etage höher nicht schön (war aber für mich einfacher, weil ich exakt mit dem Wert intern weiter rechnen musste).

Gruß, Carsten