cxMaskEdit에 EditMask를 뺀 Text값을 나타내기

 Published Date: 2008년 9월 29일

cxMaskEdit에 EditMask를 지정하면, Edit가 좀 귀찮게 나타납니다.
Text를 출력하면, 마스크 지정하여 화면에 화면에 출력한값 그대로 나타납니다.

그래서 마스크를 제거하고 문자열만 나타나는 함수를 만들어 보았습니다.
이미 있는 넘인지 아닌지 모릅니다. 귀찮아서 만들어 보았네요.

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;

 

Author: yyjksw