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

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;

EagleSoft