Máscara!! Invalid Input Value...

Delphi

17/03/2003

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

Anonymous

Curtidas 0

Respostas

Anonymous

Anonymous

17/03/2003

Oi Carol .....

Vc já tentou verificar a mascara. Dependendo dos caracteres ocorre esse erro mesmo, tente colocar !99/99/9999;1;_

Edson
Curitiba/PR


GOSTEI 0
Marcelo

Marcelo

17/03/2003

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+


GOSTEI 0
POSTAR