cxMaskEdit에 EditMask를 지정하면, Edit가 좀 귀찮게 나타납니다.
Text를 출력하면, 마스크 지정하여 화면에 화면에 출력한값 그대로 나타납니다.
그래서 마스크를 제거하고 문자열만 나타나는 함수를 만들어 보았습니다.
이미 있는 넘인지 아닌지 모릅니다. 귀찮아서 만들어 보았네요.
|
1 2 3 4 5 6 7 8 9 10 11 12 |
function Remove_Mask(ME: TcxMaskEdit): String; var S: String; I: Integer; begin S := Copy(ME.Properties.EditMask, 1, Pos(';', ME.Properties.EditMask) - 1); Result := ''; for I := 1 to Length(ME.Text) do if (S[I] in ['#', '9', '0', 'A']) then Result := Result + ME.Text[I]; end; |
최신 댓글