Navigacija
Lista poslednjih: 16, 32, 64, 128 poruka.

MaskEdit i uslov

[es] :: Pascal / Delphi / Kylix :: MaskEdit i uslov

[ Pregleda: 4442 | Odgovora: 8 ] > FB > Twit

Postavi temu Odgovori

Autor

Pretraga teme: Traži
Markiranje Štampanje RSS

mzarko

Član broj: 33636
Poruke: 80
*.ptt.yu.



Profil

icon MaskEdit i uslov09.04.2005. u 11:43 - pre 232 meseci
Na koji nacin je moguce u EditMask zadati uslov koji se brojevi mogu uneti?
npr. EditMask je u formatu tako da se mogu upisati brojevi telefona(011)222-999
i kako da se prva dva broja u zagradi mogu upisati samo 1 ili 0 a ostali po izboru
 
Odgovor na temu

engineer

Član broj: 45205
Poruke: 113
*.metrohive.neobee.net.

Jabber: engineer


Profil

icon Re: MaskEdit i uslov10.04.2005. u 09:36 - pre 232 meseci
Koristi OnChange event za proveru šta je uneto.
 
Odgovor na temu

mzarko

Član broj: 33636
Poruke: 80
*.ptt.yu.



Profil

icon Re: MaskEdit i uslov10.04.2005. u 17:43 - pre 232 meseci
Ajde ako ti nije problem napisi mi neki primer
 
Odgovor na temu

engineer

Član broj: 45205
Poruke: 113
*.metrohive.neobee.net.

Jabber: engineer


Profil

icon Re: MaskEdit i uslov11.04.2005. u 12:00 - pre 232 meseci
Citat:
mzarko: kako da se prva dva broja u zagradi mogu upisati samo 1 ili 0 a ostali po izboru

Ovo je samo jedna od mogućnosti, neoptimizovana, onako iz glave...
Code:
procedure TForm1.Edit1Change(Sender: TObject);
var
  i: Integer;
  t: String;
begin
  i := Length(Edit1.Text);
  t := Edit1.Text;
  case i of
    0: Exit;
    1, 2:
      if Pos(t[i], '01') = 0 then
        SetLength(t, i - 1);
  else
    if Pos(t[i], '0123456789') = 0 then
      SetLength(t, i - 1);
  end;
  Edit1.Text := t;
end;

p.s. nema potrebe koristiti TMaskEdit, koristi običnu TEdit kontrolu
 
Odgovor na temu

bancika
Branislav Stojkovic

Član broj: 24844
Poruke: 631
212.62.58.*

Sajt: www.diy-fever.com


+1 Profil

icon Re: MaskEdit i uslov11.04.2005. u 13:18 - pre 232 meseci
moze i maskedit, pogledaj svojstvo Mask, imas tu par primera kako se pisu maske
Ride the rainbow, crack the sky

DIY gitare, pojacala i efekti www.diy-fever.com
 
Odgovor na temu

engineer

Član broj: 45205
Poruke: 113
*.metrohive.neobee.net.

Jabber: engineer


Profil

icon Re: MaskEdit i uslov11.04.2005. u 14:36 - pre 232 meseci
Citat:
bancika: moze i maskedit, pogledaj svojstvo Mask, imas tu par primera kako se pisu maske
Svojstvo Mask ne postoji (Delphi 7), a ako misliš na EditMask, ne vidim kako se može omogućiti unos iz primera koji je mzarko napisao (unos samo cifara 0 i 1)?
 
Odgovor na temu

mzarko

Član broj: 33636
Poruke: 80
*.ptt.yu.



Profil

icon Re: MaskEdit i uslov11.04.2005. u 17:50 - pre 232 meseci
Hvala Vam na trudu, ali sa ovim nisam mogao nista da uradim.
Kada se unese prvi ispravan broj a drugi neispravan
kursor se vrati na pocetak i onda kao prvi broj moguce je
uneti bilo koji broj.
Ako se za taj unos koristi Edit umesto MaskEdita na koji je
nacin moguce da se za prvi '(' i peti ')' karakter zada uslov da se
unesu zagrade a za a za deveti uslov da bude '-' a 2 i 3 karakter
da je moguce upisati samo brojeve '0 i 1' a za 4,6,7,8,10,11 i 12
bilo koji broj.
 
Odgovor na temu

johnnie
somewhere in Serbia

Član broj: 40975
Poruke: 299
*.041net.co.yu.



+4 Profil

icon Re: MaskEdit i uslov11.04.2005. u 19:56 - pre 232 meseci
Uzmi i nadji LMD komponente, nemoj da se mucis...
I pogledaj mask editor od maskedit-a; mislim da mozes da definises masku...
Posle samo onChange event napravi da proverava ispravnost unetog polja (da ne unese prazno izmedju dva broja i sl.), npr "10 5-1236 8".

Still going strong...
 
Odgovor na temu

mzarko

Član broj: 33636
Poruke: 80
*.ptt.yu.



Profil

icon Re: MaskEdit i uslov11.04.2005. u 20:05 - pre 232 meseci
Imam LMD komponente version 6 probacu i to
 
Odgovor na temu

[es] :: Pascal / Delphi / Kylix :: MaskEdit i uslov

[ Pregleda: 4442 | Odgovora: 8 ] > FB > Twit

Postavi temu Odgovori

Navigacija
Lista poslednjih: 16, 32, 64, 128 poruka.