Witam,
chcę zrobić Edita w którym można wpisac jedynie znaki : 0, 1, przecinek, backspace.
Realizuje to poniższy kod:
if (TEdit(Sender).Text ='') then
begin
if not (ord(key) in [49,48]) then
key:=#0;
end
else
begin
if not ((ord(key) in [49,48,44 ]) or (ord(key) = 8)) then
key:=#0;
end;
Problem mam w kontroli kiedy jaki znak może zostać wpisany.
Na pierwszym miejscu może zostać wpisana liczba 0 lub 1.
Na kolejnym przecinek lub backspace i tak w kółko tzn 1,0,1,0,1.
Jak mogę to napisać?