3 replies to this topic

[Sinistro(X)]

O código:

if length(maskedit.text)=9 then // 9 por que seria XXXXX-XXX
procedimento para verificar se está certo
else
procedimento para avisar que falta digito ou mesmo um exit
end;

Não adiantou, pois coloquei esse código no evento on exit e continuou aparecendo um amensagem em inglês dizendo error of input value.

Qual seria a solução?

[Prog]

A mascara do seu campo esta assim?
00000\-999;1;_

Se estiver, altere para esta:
99999\-999;1;_

[xg0rd0]

Desculpe kra mas no caso mesmo assim o meu naum funcionou teria alguma outra forma ?

[Prog]

Altere a sua máscara para:
"99999\-999;1;_"

Utilize este código para verificar se todos os itens do seu MaskEdit estão preenchidos, ou seja, não existe nenhum '_' na cadeia de string:

procedure TForm1.MaskEdit1Exit(Sender: TObject);
var
  pTexto: array[0..9] of Char;
begin
  StrPCopy(pTexto,MaskEdit1.EditText);
  if (StrScan(pTexto,'_') <> nil) then
    ShowMessage('teste');
end;

Quando se usa o caractere de máscara 9, ele não obriga a digitação da informação, sendo assim, o erro não deveria persistir.