MyCity » Pascal -> Delphi » Edit1.text as integer

Edit1.text as integer

Napisano na dan: 21.4.2007
2

Edit1.text as integer
Pagination Prethodna strana

Idi na vrh

Poslao: 22 Apr 2007 12:27
Idi na vrh
offline
  • Pridružio: 13 Apr 2007
  • Poruke: 452
  • Gde živiš: Beograd

Znaci za pokretan zarez to bi trebalo da izgleda ovako............
Edit1.text := StrToFloat(FloatToStr((StrToInt(Edit2.Text)+StrToInt(Edit3.Text)) /StrToInt(Edit4.Text)));

A takodje pogledajte SDL komponente...........ima dobrih stvari kao sto su pokretni displey,metar kao na kolima(za brzinu).......

Dopuna: 22 Apr 2007 12:27

bobby ::btw. kada koristis StrToInt, obavezno to ubaci u try...except blok, za slucaj da neko u neki od tih edit boxova upise nesto sto nije broj.



Kako to da uradim????



Registruj se da bi učestvovao u diskusiji. Registrovanim korisnicima se NE prikazuju reklame unutar poruka.
Poslao: 22 Apr 2007 12:32
Idi na vrh
offline
  • Pridružio: 04 Sep 2003
  • Poruke: 24135
  • Gde živiš: Wien

http://www.delphibasics.co.uk/RTL.asp?Name=Except



Poslao: 22 Apr 2007 13:01
Idi na vrh
offline
  • Pridružio: 08 Jan 2007
  • Poruke: 279
  • Gde živiš: Srbija

bobby ::btw. kada koristis StrToInt, obavezno to ubaci u try...except blok, za slucaj da neko u neki od tih edit boxova upise nesto sto nije broj.
Uopšte, treba koristiti try ... except blok.
U JCL/JVCL bibliotekama imaš TJvValidateEdit gde za property Display Format postavljaš određenu vrednost (integer, currency, float, scinentific, etc.), ujedno, zabranjen je unos slova.
Tako da tvoj primer sa try .. except blokom bi mogao izgledati ovako:
try  JvValidateEditRezultat.Value:= JvValidateEditPrvi.Value + JvValidateEditDrugi.Value; except   on E : Exception do       ShowMessage(E.ClassName+' error raised, with message : +E.Message); end;
Ili još bolje ti je da hendluješ Apllication.OnException.

Ako, ipak koristiš samo TEdit, a želiš izbeći unos slova, možeš za event OnKeyPress napisati:
 case key of    '0': ;    '1': ;    '2': ;    '3': ;    '4': ;    '5': ;    '6': ;    '7': ;    '8': ;    '9': ;    ',': ;    '.': ;   else abort;  end;

Poslao: 22 Apr 2007 15:12
Idi na vrh
offline
  • Emil Beli
  • Pridružio: 03 Jan 2005
  • Poruke: 2990
  • Gde živiš: Beograd

Nema potrebe za try except

pogledati funkcije:

StrToIntDef, FloatToStrDef, FormatFloat i ostale iz "See also" u helpu

22 Apr 2007 15:13 beli0135 Zaključavanje topica Razlog: Vec odgovoreno, nema sta da se doda  

MyCity » Pascal -> Delphi » Edit1.text as integer

Ko je trenutno na forumu
 

Ukupno su 882 korisnika na forumu :: 45 registrovanih, 4 sakrivenih i 833 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: 357magnum, 8u47, airsuba, Apok, babaroga, bankulen, bojcistv, Brana01, Bubimir, dekan.m, delrey, Denaya, Dimitrise93, Djokkinen, doklevise, doktor1964, DonRumataEstorski, Dovla, goxin, ikan, Karla, Kubovac, kunktator, marsovac 2, Mercury, Metanoja, milenko crazy north, Milos ZA, Mixelotti, mkukoleca, novator, nuke92, ozzy, Panonsky, pein, Penzula, savaskytec, Shinobi, slonic_tonic, Srki94, styg, wizzardone, wolf431, zeo, ZetaMan