Zabrana unosa broja u Edit komponentu

• 0Niko još nije pohvalio poruku.
  Registruj se da bi pohvalio/la poruku!

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

Hvala!

• 0Niko još nije pohvalio poruku.
  Registruj se da bi pohvalio/la poruku!

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.

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

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.

• 0Niko još nije pohvalio poruku.
  Registruj se da bi pohvalio/la poruku!

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;

• 0Niko još nije pohvalio poruku.
  Registruj se da bi pohvalio/la poruku!

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....

• 0Niko još nije pohvalio poruku.
  Registruj se da bi pohvalio/la poruku!

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'].

• 0Niko još nije pohvalio poruku.
  Registruj se da bi pohvalio/la poruku!

O....bas nisam razmisljao....
Hvala....

• 0Niko još nije pohvalio poruku.
  Registruj se da bi pohvalio/la poruku!

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;