Runden auf ....

delphinia · Beiträge: 131 XP Pro Sp2 Delphi 5 Standard

Ich nutze folgenes zum runden

Delphi-Quelltext

1:
2:
3:
4:
5:
6:
7:
8:

function TruncVar(variable: extended; stellen: Integer): Extended;
var tmp: extended;
begin
  tmp := power(10, stellen);
  variable := variable * tmp;
  stellen := Round(variable);
  result := stellen / tmp;
end;

Problem ist nur das ich solche werte erhalte
Richtig 2.15
Falsch 2.1
da fehlt mir die 0 als zweite stelle!

Wo steckt der Fehler?

neojones · Beiträge: 1206 Erhaltene Danke: 1

Weil eine 0 eine Zahl und kein Zeichen ist. Wenn Du 2.00 als Zahhl irgendwo eingibst, gibt Delphi immer nur 2 zurück. Rest wird abgeschnitten.

In der Online-Hilfe Befehle FormatFloat anschauen, der hilft Dir.

_________________
Ha! Es compiliert! Wir können ausliefern!

	Mitgliederliste
	Gruppen
	Das Team
	Richtlinien
	Synonyme