M�scara!! Invalid Input Value...

Question

Tento criar uma m�scara para data e quando compilo, ao preencher o campo, apagar o conte�do e sair recebo esta mensagem: invalid input value. Use escape key to abandone changes. O que fa�o pra esta mensagem n�o aparecer?

Anonymous · Answer

Oi Carol .....Vc j� tentou verificar a mascara. Dependendo dos caracteres ocorre esse erro mesmo, tente colocar !99/99/9999;1;_EdsonCuritiba/PR...

Marcelo · Answer

se vode estiver usando um MaskEdit vc pode fazer o seguinte:
na propriedade EditMask coloque 99/99/9999. Se estiver usando Edit crie a seguinte funcao...

function formatadata(Data:string):string;
begin
Result:=Copy(Data,1,2)+�/�+Copy(Data,3,2)+�/�+Copy(Data,5,4);
end;

e no evento OnExit do EditData.Text coloque o seguinte:
...
begin
EditData.Text:=FormataData(EditData.Text);
end;

Valeu cara?
t+

F�rum M�scara!! Invalid Input Value... #146304