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: 8653
  • 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: 8653
  • 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 1005 korisnika na forumu :: 62 registrovanih, 7 sakrivenih i 936 gosta   ::   [ Administrator ] [ Supermoderator ] [ Moderator ] :: Detaljnije

Najviše korisnika na forumu ikad bilo je 20624 - dana 04 Apr 2026 04:18

Korisnici koji su trenutno na forumu:
Korisnici trenutno na forumu: _Rade, bigfoot, bojan313, bojan_t, Borski1977, C-Gun, celeron, Cicumile, cikadeda, colji, DeerHunter, DJUNTA, Doc, Dolinc, Draganeli, dzoni19, FOX, Georgius, Giskard, goran.vvv, igorkozar83, jon istvan, kingkong1947, kolle.the.kid, Koplje, Leonov, Lj_ubo, MagicniHerpes, Mahovljani, mean_machine, Medojed, mercedesamg, milanstankovic087, milenko crazy north, Mićko, Naj-Turs, Nomica, pacika, Paklenica, pceklic, Pekman, Pilence, Polifon, Prometeus, royst33, saputnik plavetnila, Sevatar, sevenino, skvara, stegonosa, Stevan2026, Teodor60, vaci, vathra, Velizar Laro, vladaa012, Vlajman1957, x011, Zastava, Zoca, Zoran1959, 79693