/ Forside / Teknologi / Udvikling / Delphi/Pascal / Nyhedsindlæg
Login
Glemt dit kodeord?
Brugernavn

Kodeord


Reklame
Top 10 brugere
Delphi/Pascal
#NavnPoint
oldwiking 603
jrossing 525
rpje 520
EXTERMINA.. 500
gandalf 460
gubi 270
DJ_Puden 250
PARKENSS 230
technet 210
10  jdjespers.. 200
Afrundning af Float....
Fra : Henning E. Lund


Dato : 17-05-02 21:18

Hej.

Findes der en funktion i Delphi 5 der kan afrunde et float/real til 2
decimaler....???

Istedet for 1.12345667, så skal det bare være 1.12...

mvh.

Henning Lund.



 
 
René Jensen (17-05-2002)
Kommentar
Fra : René Jensen


Dato : 17-05-02 22:31

"Henning E. Lund" wrote:
> Findes der en funktion i Delphi 5 der kan afrunde et float/real til 2
> decimaler....???

F.eks. kan man bruge følgende kode; dog gemmes afrundingen ikke, da den
kun formateres, således at den optræder som et afrundet kommatal, men
variablens værdi har stadigt gemt alle betydende cifre (kun begrænset af
Delphi):

{$APPTYPE CONSOLE}

var
KommaTal: Real;

begin
KommaTal := 123.456789;
Writeln(KommaTal:0:2);
end;

.... ved ikke om det er noget du kan bruge.

--
Med venlig hilsen,
René Jensen

Once a upon a time a wise man said to me:
"I consider Windows like I consider bad weather ... I accept it and hope
for something better"

Rasmus Beuchert \(es~ (17-05-2002)
Kommentar
Fra : Rasmus Beuchert \(es~


Dato : 17-05-02 23:07

Hej

"Henning E. Lund" <Enemark@NOSPAMmail.net4you.dk> wrote in message
news:3ce565b2$0$247$f5c28336@nntp01.dk.telia.net...
> Hej.
>
> Findes der en funktion i Delphi 5 der kan afrunde et float/real til 2
> decimaler....???
>
> Istedet for 1.12345667, så skal det bare være 1.12...

Jeg tror du kan bruge funktionen FormatFloat();

FormatFloat('0.00', dinfloat);

> mvh.
>
> Henning Lund.
>
>

MVH

Rasmus Beuchert
www.espeedy.dk
speedy@espeedy.dk



Kenneth Plettner (17-05-2002)
Kommentar
Fra : Kenneth Plettner


Dato : 17-05-02 23:21

Du kan også bare bruge round funktionen:

newFloat := Round(origFloat * 100) / 100;

"Henning E. Lund" <Enemark@NOSPAMmail.net4you.dk> wrote in message
news:3ce565b2$0$247$f5c28336@nntp01.dk.telia.net...
> Hej.
>
> Findes der en funktion i Delphi 5 der kan afrunde et float/real til 2
> decimaler....???
>
> Istedet for 1.12345667, så skal det bare være 1.12...
>
> mvh.
>
> Henning Lund.
>
>



Thomas Due (21-05-2002)
Kommentar
Fra : Thomas Due


Dato : 21-05-02 07:30

Hejsa,

Du kan også anvende funktion RoundTo som findes i Math uniten.

Der angives dit floating number samt et tal som angive ønsket antal
decimaler. Slå den op i hjælpen.

Den findes i Delphi 6, jeg ved faktisk ikke om den findes i tidligere
versioner.

--
Thomas Due
Software Developer
Scanvaegt Nordic A/S
t.due@scanvaegt.dk
"Kenneth Plettner" <kenneth@plettner.dk> wrote in message
news:ac3von$296q$1@news.cybercity.dk...
> Du kan også bare bruge round funktionen:
>
> newFloat := Round(origFloat * 100) / 100;
>
> "Henning E. Lund" <Enemark@NOSPAMmail.net4you.dk> wrote in message
> news:3ce565b2$0$247$f5c28336@nntp01.dk.telia.net...
> > Hej.
> >
> > Findes der en funktion i Delphi 5 der kan afrunde et float/real til 2
> > decimaler....???
> >
> > Istedet for 1.12345667, så skal det bare være 1.12...
> >
> > mvh.
> >
> > Henning Lund.
> >
> >
>
>



Ravn (17-05-2002)
Kommentar
Fra : Ravn


Dato : 17-05-02 22:50

Du kan bruge FormatFloat
FormatFloat('0.00',10,2534); // = 10,25
FormatFloat('#,##0.00',1000,2534); // = 1.000,25

Hilsen
Ravn

"Henning E. Lund" <Enemark@NOSPAMmail.net4you.dk> skrev i en meddelelse
news:3ce565b2$0$247$f5c28336@nntp01.dk.telia.net...
> Hej.
>
> Findes der en funktion i Delphi 5 der kan afrunde et float/real til 2
> decimaler....???
>
> Istedet for 1.12345667, så skal det bare være 1.12...
>
> mvh.
>
> Henning Lund.
>
>



Søg
Reklame
Statistik
Spørgsmål : 177552
Tips : 31968
Nyheder : 719565
Indlæg : 6408849
Brugere : 218887

Månedens bedste
Årets bedste
Sidste års bedste