Prosty kalkulator - problemy

0

witam,
robilem sobie w Delphi maly licznik, ktory moze dodawac, odejmowac, mnozyc i powinien dzielic. Z
tymi trzema pierwszymi działaniami nie ma problemu. Pojawia się on dopiero przy dzieleniu.
Noramalnie robie cos takiego:

<font color="darkred">procedure TForm1.Button1Click(Sender: TObject);
Var liczba1,liczba2,suma:integer;
begin
liczba1:=StrToInt(Edit1.text);
liczba2:=strtoint(Edit2.Text);
suma:=liczba1+liczba2;
label3.caption:=inttostr(suma);</span>

Z wykorzystaniem komponentow edit,button i label (3 etykiety na jedno dzialanie).
Dopiero przy dzieleniu wyskakuje blad w ostatniej linijce ?! przy label12. A przeciez
wlasnie za podanie wyniku tego działania odpowodzielna jest label12!!

<font color="darkred">procedure TForm1.Button4Click(Sender: TObject);
var liczba1,liczba2,iloraz:integer;
begin
liczba1:=strtoint(Edit7.Text);
liczba2:=strtoint(Edit8.Text);
iloraz:=liczba1/liczba2
label12.caption:=inttostr(iloraz);</span>

Od razu mówie, ze nie ma tu obslugi bledow i nie hce tu tego :)
Prosze pomozcie bo nie wiem czemu sie czepia tej linijki.

0

Iloraz powinien zmienną typu

 extended

, bo przecież przechowuje liczby zmiennoprzecinkowe. Jeżeli chcesz korzystać nadal z integer zamiast /

 daj <code class="delphi">div
0

Aby ten obliczony już iloraz wstawić do labela to użyj konwertera FloatToStr(iloraz)... może Ci się to przydać Pozdr

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