[delphi] zaokraglenie liczb

czesc

mam taki kodzik

procedure TForm1.Button1Click(Sender: TObject); begin if (StrToFloat(edit1.text) < 50.8) then suma_cyfr := ilosc_punktow + 0.3; (edit1.text := floattostr(suma_cyfr) + ' '); end;

i chcialbym aby byla zaokraglana liczba z edita doczytalem sie ze trzeba uzyc funkcji floor

znalazlem cos takiego

function Floor(const X: Extended): Integer; Writeln('Floor: ', Floor(2.9)); // zwróci 2

tylko nie bardzo wiem jak to zastosowac do mojego kodu poniewaz na funkcjach jeszcze nie pracowalem

moglby mi ktos pomoc ? z gory dziekuje za wsjazowki
Użytkownik mick12 edytował ten post 19 październik 2007, 09:00

---

czesc

mam taki kodzik

procedure TForm1.Button1Click(Sender: TObject); begin if (StrToFloat(edit1.text) < 50.8) then suma_cyfr := ilosc_punktow + 0.3; (edit1.text := floattostr(suma_cyfr) + ' '); end;

i chcialbym aby byla zaokraglana liczba z edita doczytalem sie ze trzeba uzyc funkcji floor

znalazlem cos takiego

function Floor(const X: Extended): Integer; Writeln('Floor: ', Floor(2.9)); // zwróci 2

tylko nie bardzo wiem jak to zastosowac do mojego kodu poniewaz na funkcjach jeszcze nie pracowalem

moglby mi ktos pomoc ? z gory dziekuje za wsjazowki
Zamień łańcuch z edita na liczbę i urzyj funkcji floor jak pokazałeś na przykładzie

zanotowane.pl

doc.pisz.pl

pdf.pisz.pl

zsf.htw.pl