MaskEdit i uslov

[ mzarko @ 09.04.2005. 11:43 ] @

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

[ engineer @ 10.04.2005. 09:36 ] @

Koristi OnChange event za proveru šta je uneto.

[ mzarko @ 10.04.2005. 17:43 ] @

Ajde ako ti nije problem napisi mi neki primer

[ engineer @ 11.04.2005. 12:00 ] @

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

[ bancika @ 11.04.2005. 13:18 ] @

moze i maskedit, pogledaj svojstvo Mask, imas tu par primera kako se pisu maske

[ engineer @ 11.04.2005. 14:36 ] @

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)?

[ mzarko @ 11.04.2005. 17:50 ] @

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.

[ johnnie @ 11.04.2005. 19:56 ] @

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

[ mzarko @ 11.04.2005. 20:05 ] @

Imam LMD komponente version 6 probacu i to