MyCity » Pascal -> Delphi » Zabrana unosa broja u Edit komponentu

Zabrana unosa broja u Edit komponentu

Napisano na dan: 17.12.2007

Zabrana unosa broja u Edit komponentu
Sledeća strana Pagination

Idi na vrh

Poslao: 17 Dec 2007 23:31
Idi na vrh
offline
  • Pridružio: 15 Maj 2006
  • Poruke: 333
  • Gde živiš: Babušnica

Kako da zabranim unos broja u Edit1 onChangetext? Znači da mogu samo slova da se unose.

Hvala!



Registruj se da bi učestvovao u diskusiji. Registrovanim korisnicima se NE prikazuju reklame unutar poruka.
Poslao: 18 Dec 2007 02:41
Idi na vrh
offline
  • Đuro Glumac
  • dipl. ing. informatike
  • Pridružio: 08 Feb 2004
  • Poruke: 3640
  • Gde živiš: ApAtIn

procedure TForm1.Edit1Change(Sender: TObject); var i: integer; s: string; Begin s:=Edit1.Text; for i:=1 to length(s) do    if (s[i] in ['0'..'9']) then     ShowMessage('GRESKA! Unet je broj!'); end;

Prilikom svakog unosa, uzima se jedan po jedan karakter iz edit boxa i proverava da li je u skupu od 0 do 9, odnosno da li je broj. Ukoliko jeste, ispisuje da je doslo do greske.

Idea Nedostatak ovoga je sto mozes da ponavljas gresko, tj. uneses broj, on ti prikaze gresku. Kliknes OK, pa zatim ponovo uneses broj...

Idea Da bi se zastitio od ovoga, nakon prikaza poruke o gresci ne bi bilo lose da obezbedis brisanje poslednjeg unetog karaktera iz Edit boxa, tj. broja.

Ukoliko ti je najasan neki deo koda, pitaj... tu smo.



Poslao: 18 Dec 2007 07:35
Idi na vrh
offline
  • Pridružio: 12 Nov 2006
  • Poruke: 52

Zašto ne bi koristio dogadjaj OnKeyPress?

Evo ti jednostavnog i efikasnog koda

Citat:procedure TForm1.Edit1KeyPress(Sender: TObject; var Key: Char);
begin
if key in ['0'..'9'] then key:=#0;
end;

Poslao: 18 Dec 2007 08:30
Idi na vrh
offline
  • Pridružio: 13 Apr 2007
  • Poruke: 452
  • Gde živiš: Beograd

Kad smo vec kod ovoga, da i ja pitam nesto....
Desava mi se da kada pristisnem backspace on prijavi gresku...Radio sam sa OnKeyPress eventom....Sada ne koristim to vise, ali hocu da znam da li ima neki nacin da se uradi da samo slova ne rade, a ne i svi ostali tasteri....

Poslao: 18 Dec 2007 09:41
Idi na vrh
offline
  • Đuro Glumac
  • dipl. ing. informatike
  • Pridružio: 08 Feb 2004
  • Poruke: 3640
  • Gde živiš: ApAtIn

Slazem se sa zamm72. Kod jeste jednostavniji i efikasan, ali jedini nedostatak u odnosu na onaj gornji kod je sto mozes da uradis copy/paste u edit box, rec koja sadrzi brojeve, mada i to moze da se sredi.

LittleHacker:
Da bi odradio da ne rade samo slova, uradis identicno kao neki od ovih gore primera samo umesto ['0'..'9'] stavis ['A'..'Z'].

Poslao: 18 Dec 2007 14:56
Idi na vrh
offline
  • Pridružio: 13 Apr 2007
  • Poruke: 452
  • Gde živiš: Beograd

O....bas nisam razmisljao.... Very Happy
Hvala....

Poslao: 18 Dec 2007 23:33
Idi na vrh
offline
  • Pridružio: 15 Maj 2006
  • Poruke: 333
  • Gde živiš: Babušnica

Hvala na pomoći! Evo šta sam uradio. To mi je trebalo. Možda nekom zatreba...

procedure TForm1.DBEdit3Change(Sender: TObject); var i,br: integer;     s: string; Begin s:=DbEdit3.Text; for i:=1 to length(s) do    if (s[i] in [' '..'@']) or       (s[i] in ['['..'`']) or       (s[i] in ['{'..'‰'])  then      begin       br:=i;       delete(s,br,1);     end;   DbEdit3.Text:=s;   DbEdit3.SelStart:=length(s); end;

MyCity » Pascal -> Delphi » Zabrana unosa broja u Edit komponentu

Ko je trenutno na forumu
 

Ukupno su 1267 korisnika na forumu :: 74 registrovanih, 4 sakrivenih i 1189 gosta   ::   [ Administrator ] [ Supermoderator ] [ Moderator ] :: Detaljnije

Najviše korisnika na forumu ikad bilo je 15694 - dana 01 Feb 2026 12:23

Korisnici koji su trenutno na forumu:
Korisnici trenutno na forumu: 9k38, ajo baba, alex71, ArchaBasha, avijacija, berste23, bluesky, bojcistv, Bubimir, cavatina, Drugard72, Dzoni2412, EXIT78, Feller, gasha, GeoM, Giskard, Goran 0000, GveX, Hitri, icemilos, Insan, Istman, ivan979, Jan, jarovitt, K-1A, Kamov, komenski, Kozi-RS, kunktator, kuntakinte, Lucije Kvint, ludiagresivan, Markan90, mačković, Mercury, Mihajlo, mile.ilic75, milenko crazy north, MK10, mnn2, Mostarac1977, mrgud2025, Mzee, Neutral-M, nikolapetkovic, Nole, Nomica, opt1, Piicoki, Qvazimodo, raketaš, Sharpshooter, Sky diver 29, slowhand, sova72, Srky Boy, Tihi86, tomigun, travisrise, VanZan, vathra, Velibor Radoja, vladao75, Vojkan Petrovic, W123, XBMC, Zastava, zastavnik, zexon, zombicar153, zubri, zzapNDjuric99