MyCity » Pascal -> Delphi » kalkulator i end problem

kalkulator i end problem

Napisano na dan: 23.11.2007

kalkulator i end problem
Sledeća strana Pagination

Idi na vrh

Poslao: 23 Nov 2007 14:43
Idi na vrh
offline
  • helen1  Male
  • Anti Malware Fighter
    Rank 2
  • Master učitelj
  • Pridružio: 27 Avg 2005
  • Poruke: 8620
  • 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:

  1. unit Unit1;
  2.  
  3. interface
  4.  
  5. uses
  6.   Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  7.   Dialogs, StdCtrls;
  8.  
  9. type
  10.   TForm1 = class(TForm)
  11.     Edit1: TEdit;
  12.     Edit2: TEdit;
  13.     rez: TEdit;
  14.     Label1: TLabel;
  15.     Label2: TLabel;
  16.     Label3: TLabel;
  17.     ComboBox1: TComboBox;
  18.     Button1: TButton;
  19.     procedure Button1Click(Sender: TObject);
  20.     procedure ComboBox1Change(Sender: TObject);
  21.   private
  22.     { Private declarations }
  23.   public
  24.     { Public declarations }
  25.   end;
  26.  
  27. var
  28.   Form1: TForm1;
  29.  
  30. implementation
  31.  
  32. {$R *.dfm}
  33.  
  34. procedure TForm1.Button1Click(Sender: TObject);
  35. begin
  36. close
  37. end;
  38.  
  39. procedure TForm1.ComboBox1Change(Sender: TObject);
  40. begin
  41. case combobox1.itemindex of
  42. 0:rez.text:=floattostr(strtofloat(edit1.Text)+strtofloat(edit2.Text));
  43. 1:rez.text:=floattostr(strtofloat(edit1.Text)-strtofloat(edit2.Text));
  44. 2:rez.text:=floattostr(strtofloat(edit1.Text)*strtofloat(edit2.Text));
  45. 3:if(strtofloat(edit2.Text)=0)
  46. then begin
  47. showmessage('deljenje nulom');edit2.SetFocus;
  48. end
  49. else rez.Text:=floattostr(strtofloat(edit1.Text)/strtofloat(edit2.Text));
  50.  
  51. end
  52.  
  53. end.
Registruj se da bi učestvovao u diskusiji. Registrovanim korisnicima se NE prikazuju reklame unutar poruka.
Poslao: 23 Nov 2007 17:57
Idi na vrh
offline
  • Pridružio: 08 Jan 2007
  • Poruke: 279
  • Gde živiš: Srbija

Probaj ovako:

  1. case combobox1.itemindex of
  2.  0:rez.text:=floattostr(strtofloat(edit1.Text)+strtofloat(edit2.Text));
  3.  1:rez.text:=floattostr(strtofloat(edit1.Text)-strtofloat(edit2.Text));
  4.  2:rez.text:=floattostr(strtofloat(edit1.Text)*strtofloat(edit2.Text));
  5.  3:begin
  6.      if(strtofloat(edit2.Text)=0) then
  7.       begin
  8.        showmessage('deljenje nulom');
  9.        edit2.SetFocus
  10.       end
  11.      else
  12.       rez.Text:=floattostr(strtofloat(edit1.Text)/strtofloat(edit2.Text));
  13.     end;
  14.   end;



Poslao: 23 Nov 2007 18:00
Idi na vrh
offline
  • helen1  Male
  • Anti Malware Fighter
    Rank 2
  • Master učitelj
  • Pridružio: 27 Avg 2005
  • Poruke: 8620
  • Gde živiš: Novi Beograd

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

MyCity » Pascal -> Delphi » kalkulator i end problem

Ko je trenutno na forumu
 

Ukupno su 822 korisnika na forumu :: 14 registrovanih, 3 sakrivenih i 805 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: 33 bren, Ca6otep, casual03, Cicumile, Darkhunter, doloress, famoso, Igorkg77, Motocar, Mzee, PrincipL, Saša31LPB, Sterilizacija, vladas87