• 3 odgovora
  • 3.151 pregleda
Maskedit i problem sa unosom 22.11.2006. u 07:25 · pre 242 meseci #1
Kako mogu da odradim da mi maskedit dozvoljava unos samo brojeva a ne slova.. Kada postavim za maskedit: 0000000;1; on mi trazi da ispunim sva polja brojevima. Meni treba recimo da ogranicim unos na 7 polja i da dozvoljene vrednosti budu samo brojevi.. Ali nebitno koliko se unese, moze i dvocifren i trocifren broj..
U gornjem slucaju mi trazi da napisem npr. 0000023. A ja bih samo 23. Posle bi ta vrednost trebala da se koristi kao integer..
Hvala
Re: Maskedit i problem sa unosom 22.11.2006. u 07:50 · pre 242 meseci #2
Mozda ne treba da koristis maskedit
nego OnKeyPress event stavis kod (ovako nekako)

if key not in ['0'..'9',#8] then
key=#13;
beep;

i to ti daje mogucnost da unosis samo slova i da brises iz polja
nisam siguran da je kod 100% tacan ali ideja je takva...
r.
Potpis
/*A sad odo` malo napolje*/
Re: Maskedit i problem sa unosom 22.11.2006. u 09:03 · pre 242 meseci #3
> Kako mogu da odradim da mi maskedit dozvoljava unos samo brojeva a ne slova.. Kada
> postavim za maskedit: 0000000;1; on mi trazi da ispunim sva polja brojevima.

0 označava obavezan karakter, stavi 9.
Potpis
Do not be a help vampire (http://slash7.com/pages/vampires), use the google.

How to ask questions the smart way:
http://www.catb.org/~esr/faqs/smart-questions.html
http://solair.eunet.rs/~fangor...stions/smart-questions.sr.html
Re: Maskedit i problem sa unosom 22.11.2006. u 13:04 · pre 242 meseci #4
Code:

procedure TForm1.MaskEdit1KeyPress(Sender: TObject; var Key: Char);
begin
  if not(Key in ['0'..'9', #8]) then
    Key:=#0; //#8 - backspace
end;
Prijavite se da biste odgovorili u ovoj temi.PrijavaRegistracija

Premeštanje teme