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
MaskEdit i uslov
