이렇게 했거덩요...근데...
만약 주민번호가 123421-1234567 라면...주민번호를 앞에 여섯자리중 마지막 자리1을 보구..남이라구 나오는데여...고쳐보려고 노력했지만 잘 안돼내여..
아무래두..에디트마스크가______-_______이렇게생겨서 그런가????
if MaskEdit1.GetTextLen >= 7 then
begin
if copy(MaskEdit1.Text, 8, 1) = '1' then
Edit4.Text:='남'
else if copy(MaskEdit1.Text, 8, 1) = '2' then
Edit4.text:='여'
end;
> 이렇게 했거덩요...근데...
> 만약 주민번호가 123421-1234567 라면...주민번호를 앞에 여섯자리중 마지막 자리1을 보구..남이라구 나오는데여...고쳐보려고 노력했지만 잘 안돼내여..
> 아무래두..에디트마스크가______-_______이렇게생겨서 그런가????
>
> if MaskEdit1.GetTextLen >= 7 then
> begin
> if copy(MaskEdit1.Text, 8, 1) = '1' then
> Edit4.Text:='남'
> else if copy(MaskEdit1.Text, 8, 1) = '2' then
> Edit4.text:='여'
>
> end;
마스크 에디터를 지저해 주는 윈도에서 input mask 에서 에디트 마스크를 저장해주죠..
그 밑에 보면 SAVE Literal Characters 체크박스에 체크가 되었있나 확인해 보시죠..