Zaokruhlovanie v DELPHI Rychla porada

Programovacie jazyky, rady, poradňa...
ReACTiVe
Medium Expert
Medium Expert
Používateľov profilový obrázok
Príspevky: 130
Registrovaný: 18 sep 2005, 19:26
Bydlisko: pred PC

Zaokruhlovanie v DELPHI Rychla porada

Príspevok od používateľa ReACTiVe »

Zdravim, potrebujem v delphi zaokruhlit cislo typu extended na dve desatinne miesta a vobec netusim ako. Poradite?
Dik
p.s.: potrebujem to hned, zajtra na obed to uz nebude aktualne :)
Dopredu vdaka za vsetku pomoc, kazdy bude odmenny k+ :)
chrono
VIP
VIP
Používateľov profilový obrázok
Príspevky: 7127
Registrovaný: 25 dec 2006, 15:17

Príspevok od používateľa chrono »

Čo pod tým myslíš? Zaokrúhliť pri nejakom výpise, alebo chceš zaokrúhliť iba obsah tej premennej?
ReACTiVe
Medium Expert
Medium Expert
Používateľov profilový obrázok
Príspevky: 130
Registrovaný: 18 sep 2005, 19:26
Bydlisko: pred PC

Príspevok od používateľa ReACTiVe »

chrono napísal:Čo pod tým myslíš? Zaokrúhliť pri nejakom výpise, alebo chceš zaokrúhliť iba obsah tej premennej?
do label my vypise cislo, ja chcem aby bolo zaokruhlene na dve desatinne miesta (prevod z jednej meny na druhu)
chrono
VIP
VIP
Používateľov profilový obrázok
Príspevky: 7127
Registrovaný: 25 dec 2006, 15:17

Príspevok od používateľa chrono »

V takom prípade môžeš použiť niečo ako

Kód: Vybrať všetko

Str(cislo:10:2, text);
prípadne

Kód: Vybrať všetko

text := FloatToStrF(cislo, ffNumber, 10, 2);
audiotrack
VIP
VIP
Používateľov profilový obrázok
Príspevky: 25958
Registrovaný: 09 sep 2005, 18:39
Kontaktovať používateľa:

Príspevok od používateľa audiotrack »

Kód: Vybrať všetko

X:=RoundTo(X,-2);
alebo

Kód: Vybrať všetko

FormatFloat("0.00",X);
kde X je tvoje desatinné číslo
Napísať odpoveď