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:

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.
Poslao: 23 Nov 2007 17:57
Idi na vrh
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;



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 936 korisnika na forumu :: 60 registrovanih, 6 sakrivenih i 870 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: antonije64, Armadillo, bigfoot, Bobrock1, Bojan198527, bojanstros9, bokisha253, Boris BM, bpvl, brkan1, brufen, BSD, cvrle312, Czrweni, darkojbn, dearg, divison, g_g, galerija, Gall, gasha, Georgius, Haris, hyla, Igritelj, interesujeme, jalos, kunktator, kybonacci, Lester Freamon, Michellefromrezistance, milutin134, mitja2512, moldway, Mskok, niksa517, paja69, pein, pisac12, powSrb, rakivan, Sir Budimir, Sirius, Skywhaler, SpeedyGonzales, srpskasparta, stokssone, Str2022, suton, synergia, t84dar, Username1000, vaci, vathra, Vlada1389, Vlada78, vladulns, ZlatniRez, Zmaj001, Zorge