kalkulator i end problem

kalkulator i end problem

offline
  • helen1  Male
  • Anti Malware Fighter
    Rank 2
  • Master učitelj
  • Pridružio: 27 Avg 2005
  • Poruke: 8444
  • Gde živiš: Novi Beograd

Znaci treba da napravim kalkulator koji izgleda ovako:



Napisao sam kod za racunske operacije ali kad kliknem RUN pojavi se ova poruka:



Evo ga kompletan kod:

unit Unit1; interface uses   Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,   Dialogs, StdCtrls; type   TForm1 = class(TForm)     Edit1: TEdit;     Edit2: TEdit;     rez: TEdit;     Label1: TLabel;     Label2: TLabel;     Label3: TLabel;     ComboBox1: TComboBox;     Button1: TButton;     procedure Button1Click(Sender: TObject);     procedure ComboBox1Change(Sender: TObject);   private     { Private declarations }   public     { Public declarations }   end; var   Form1: TForm1; implementation {$R *.dfm} procedure TForm1.Button1Click(Sender: TObject); begin close end; procedure TForm1.ComboBox1Change(Sender: TObject); begin case combobox1.itemindex of 0:rez.text:=floattostr(strtofloat(edit1.Text)+strtofloat(edit2.Text)); 1:rez.text:=floattostr(strtofloat(edit1.Text)-strtofloat(edit2.Text)); 2:rez.text:=floattostr(strtofloat(edit1.Text)*strtofloat(edit2.Text)); 3:if(strtofloat(edit2.Text)=0) then begin showmessage('deljenje nulom');edit2.SetFocus; end else rez.Text:=floattostr(strtofloat(edit1.Text)/strtofloat(edit2.Text)); end end.



Registruj se da bi učestvovao u diskusiji. Registrovanim korisnicima se NE prikazuju reklame unutar poruka.
offline
  • Pridružio: 08 Jan 2007
  • Poruke: 279
  • Gde živiš: Srbija

Probaj ovako:
case combobox1.itemindex of  0:rez.text:=floattostr(strtofloat(edit1.Text)+strtofloat(edit2.Text));  1:rez.text:=floattostr(strtofloat(edit1.Text)-strtofloat(edit2.Text));  2:rez.text:=floattostr(strtofloat(edit1.Text)*strtofloat(edit2.Text));  3:begin      if(strtofloat(edit2.Text)=0) then       begin        showmessage('deljenje nulom');        edit2.SetFocus       end      else       rez.Text:=floattostr(strtofloat(edit1.Text)/strtofloat(edit2.Text));     end;   end;



offline
  • helen1  Male
  • Anti Malware Fighter
    Rank 2
  • Master učitelj
  • Pridružio: 27 Avg 2005
  • Poruke: 8444
  • Gde živiš: Novi Beograd

Da,to je bio problem.Zaboravio sam da stavim jos jedan end; pre end.
Hvala puno.

Ko je trenutno na forumu
 

Ukupno su 697 korisnika na forumu :: 21 registrovanih, 2 sakrivenih i 674 gosta   ::   [ Administrator ] [ Supermoderator ] [ Moderator ] :: Detaljnije

Najviše korisnika na forumu ikad bilo je 3466 - dana 01 Jun 2021 17:07

Korisnici koji su trenutno na forumu:
Korisnici trenutno na forumu: amstel2, bankulen, bojank, Doca, Dukelander, Kaneda, Kruger, madza, mercedesamg, Miskohd, mustangkg, oddsock, Pakito93, panonski mornar, pein, Pohovani_00, Regrut Boskica, Roman, vasa.93, Vlada1389, zixmix