Dwa miejsca po przecinku

0

W label'u wyswietla mi sie liczba typu real (FloatToStr). jest ona wynikiem dzielenia, ale czasami dzielenie jest z resztą i wychodzi brzydki wynik np. 3,33333333333333
Jak zaokrąglić tą liczbe do 2 miejsc po przecinku?

0

Edit1.Text:= FloatToStrF(123.43214123,ffFixed, 100, 2);

0
FormatFloat('#.##', 3.3333333333);
0

albo Currency

0

roundto + f1

0

zmienną typu real można formatować np. za pomocą funkcji : FloatToStrF(x,ffFixed,8,2) x-to zmienna typu real, fffixed-to jeden z rodzajów formatowania liczb zmiennoprzecinkowych, 8-zmienna zostanie wyświetlona na ośmiu miejscach(niewykorzystane miejsca zastąpione zostaną spacjami), 2-z dwoma miejscami po przecinku
przykład:
x=23,4639
aby wyświetlić x na etykiecie Label1, piszemy:
Label1.caption:=FloatToStrF(x,fffixed,6,2);
na etykiecie otrzymamy: 23,46
jeśli x=23,4689, to na etykiecie otrzymamy: 23,47
funkcja ta spełnia więc także funkcję zaokrąglania liczb

0

Spróbuj tak:

procedure TForm1.Button1Click(Sender: TObject);
var
a,b: integer;
wynik:real;

begin
a:=strtoint(edit1.Text);
b:=strtoint(edit2.Text);
wynik:=a / b;

edit3.Text:=FloatToStrF(wynik,fffixed,6,2);

end;

Za ' / ' możesz wstawiać +,-,* i inne tam. Tylko nie wiem jak zastąpić te znaczki textem z np. Edit4. Pozdro...

0

przecież to już było milion razy!! szukać!!

1 użytkowników online, w tym zalogowanych: 0, gości: 1