Pegar o valor de um TMaskEdit sem a mascara.
Olá pessoal,
Como faço para pegar o valor de um Maskedit sem a mascara? A mascara está marcada para para salvar caractere.
Eu preciso pegar o valor sem a mascara apenas para validar se ele está preenchido.
Obrigado.
Como faço para pegar o valor de um Maskedit sem a mascara? A mascara está marcada para para salvar caractere.
Eu preciso pegar o valor sem a mascara apenas para validar se ele está preenchido.
Obrigado.
Yallebr
Curtidas 0
Respostas
Wilson Brito
24/08/2005
Ex: EditMask = ´999.999.999-99´
Verifique assim:
If MaskEdit1.text = ´ . . - ´ then begin
<COMANDOS>
end;
------ OU USE A FUNÇÃO -------
function TiraMascara(MskEdit:TMaskEdit):string;
var
Mask: String;
begin
Mask := MskEdit.EditMask;
MskEdit.EditMask := ´´;
Result := MskEdit.Text;
MskEdit.EditMask := Mask;
end;
procedure TForm1.BitBtn1Click(Sender: TObject);
begin
If TiraMascara(MaskEdit1) = ´´ then begin
ShowMessage(´Digite o valor´);
end;
end;
Verifique assim:
If MaskEdit1.text = ´ . . - ´ then begin
<COMANDOS>
end;
------ OU USE A FUNÇÃO -------
function TiraMascara(MskEdit:TMaskEdit):string;
var
Mask: String;
begin
Mask := MskEdit.EditMask;
MskEdit.EditMask := ´´;
Result := MskEdit.Text;
MskEdit.EditMask := Mask;
end;
procedure TForm1.BitBtn1Click(Sender: TObject);
begin
If TiraMascara(MaskEdit1) = ´´ then begin
ShowMessage(´Digite o valor´);
end;
end;
GOSTEI 0
Yallebr
24/08/2005
Funcionou obrigado.
GOSTEI 0