[Delphi] Real afronden

[Verwijderd]

Ik wil een Real afronden op 2 getallen achter de komma. Met de functie Round kom ik niet op het gewenste resultaat.

Iemand hier weet vast wel hoe dat moet

Thnx !

[Verwijderd]

Probeer RoundTo of SimpleRoundTo eens

Kijk voor de preciese argumenten etc. ff in de Delphi help

[RickN]

Die functies ken ik niet, maar dit werkt ook:

Vermenigvuldig je real met 100, rond dan af en deel tenslotte weer door 100.

[TheLunatic]

Als het alleen maar om de weergave gaat, weet ik van Turbo Pascal dat je het zo kunt doen :

code:

var getal:real;

begin
getal:=5;
writeln(getal:0:2);
end.

en aangezien Delphi ook Pascal is zal dit misschien wel werken.

[RickN]

Op woensdag 02 januari 2002 19:29 schreef TheLunatic het volgende:
Als het alleen maar om de weergave gaat, weet ik van Turbo Pascal dat je het zo kunt doen :

code:

var getal:real;

begin
getal:=5;
writeln(getal:0:2);
end.

en aangezien Delphi ook Pascal is zal dit misschien wel werken.

Die constructie ken ik niet. Voor een specifieke weergave van een getal gebruik ik altijd FormatFloat().

[Verwijderd]

thnx !

[Verwijderd]

En er is ook nog een andere functie FloatToStrF
en die werkt alsvolgt :

FloatToStrF(waarde, ffNumber, 15,2);

heb je ook gelijk duizendtallen zodat er netjes een punt komt te staan.

[wizl]

Delphi gebruikt idd. als sinds jaar en dag het zgn. bankers-rounding . . .
Gebruik deze functie om af te ronden op de manier waarop je gewend bent

code:

function RondAf(Bedrag: Currency): Currency;
begin
  if Bedrag < 0.0 then
    Result := Int((Bedrag * 100) - 0.5) / 100
  else
    Result := Int((Bedrag * 100) + 0.5) / 100;
end;

[Verwijderd]

Dit is heel makkelijk te doen met FloatFormat()

code:

procedure TForm1.Button1Click(Sender: TObject);

var
  rEuro     : real;
  sResult   : string;

begin
  rEuro := 1.223434534535436;
  sResult := FormatFloat('0.00', rEuro);
  edit1.Text := sResult;
end;