|
Programiranje Programski jezici, tehnike, alatke... |
|
Alatke vezane za temu | Vrste prikaza |
23.12.2008, 16:48 | #1 |
Novi član
Član od: 9.8.2006.
Poruke: 18
Zahvalnice: 0
Zahvaljeno jedanput na jednoj poruci
|
Pomoć oko elementarnog zadatka u Delphiju
ko pomogne dobije pivo od mene za novu, spasavate me ucenja za vreme raspusta
koji kod treba da umetnem u ovaj da se ispisuje poruka da nije dozvoljeno unosenje slova ako se u neku od 2 edit kontrole upise slovo (bilo veliko bilo malo)? znam da treba da se koristi val funkcija ali uzasno slabo stojim sa inf pa bi mi pomoc bila preko potrebna... hvala unapred! procedure TForm1.btIzracunajClick(Sender: TObject); var A,B:Integer; begin If edA.Text='' then begin ShowMessage('Nije unet prvi broj'); lbRez.Caption:=''; exit; end; If edA.Text='0' then begin ShowMessage('Prvi broj ne sme biti nula'); lbRez.Caption:=''; exit; end; If edB.Text='' then begin ShowMessage('Nije unet drugi broj'); lbRez.Caption:=''; exit; end; If edB.Text='0' then begin ShowMessage('Drugi broj ne sme biti nula'); lbRez.Caption:=''; exit; end; A:=StrToInt(edA.Text); B:=StrToInt(edB.Text); lbRez.Caption:=FloatToStr(-B/A); end; end. |
23.12.2008, 20:39 | #2 |
Član
Član od: 15.6.2006.
Lokacija: Zajecar
Poruke: 185
Zahvalnice: 12
Zahvaljeno 24 puta na 21 poruka
|
Re: pomoc oko elementarnog zadatka u delphiju
Mozes problemce da resis na dva nacina.
Prvi nacin je da koristis try except petlju. Prvo definisi promenljivu tipa integer, nazovimo je broj u ovom primeru, a onda iskoristis sledeci kod: Kod:
try broj:=strtoint(edit1.Text); except showmessage('Nije dozvoljen unos slova i specijalnih karaktera. Unesena vredost nije numerik'); end; Dakle ubaci navedenu try ... except petlju u svoj kod, da sad ne pisem kompletno kod koji ti treba, mislim da ces se snaci. Drugi nacin, verovatno i laksi, je da umesto edit komponente koristis maskedit komponentu kojom mozes da ogranicis sta moze da se unosi, i lepo ogranicis da se unose samo cifre, i uopste ti i nece trebati provera da li je unesen broj ili sadrzi i slova i specijalne karaktere. |
23.12.2008, 22:52 | #3 |
Novi član
Član od: 9.8.2006.
Poruke: 18
Zahvalnice: 0
Zahvaljeno jedanput na jednoj poruci
|
Re: pomoc oko elementarnog zadatka u delphiju
ok,hvala na odgovoru, a jel postoji neka varijanta preko val da se resi problem?
te komande koje si naveo jos nismo radili, a profanka je prilicno gadna pa ako vidi da sam koristio nesto sto nismo radili a jurim 2 moze da bude problema... ona licno mi je rekla da sa dosadasnjim gradivom taj problem moze da se resi samo preko val... |
23.12.2008, 23:28 | #4 |
Član
Član od: 15.6.2006.
Lokacija: Zajecar
Poruke: 185
Zahvalnice: 12
Zahvaljeno 24 puta na 21 poruka
|
Re: pomoc oko elementarnog zadatka u delphiju
Sa Val komandom ces otprilke ovako da uradis:
Kod:
procedure TForm1.Button1Click(Sender: TObject); var broj,greska:integer; begin Val(Edit1.Text, broj, greska); if (greska=0) then showmessage('sve je ok broj je numerik') else showmessage('karakter broj '+inttostr(greska)+'. nije broj'); end; |
Bookmarks sajtovi |
|
|
Slične teme | ||||
tema | temu započeo | forum | Odgovora | Poslednja poruka |
[Legend of Zelda - The Minish Cap] -> pomoć | Geomaster | Konzole | 30 | 10.9.2007 14:05 |