Re: [delphi-br] Re: Ref. Sair campo data

2009/1/7 Carlos : > except > on e:econverterror do > begin > showmessage('A Dada Digitada : '+Text+', não Correposnde a uma > data Válida.'); > abort; > end; Dica - remova o end; acima e acrescente isto aqui neste ponto: end else raise; > end; -- Joao Morais

[delphi-br] Re: Ref. Sair campo data

Meu camarada, boa tarde! Eu, com a ajuda de um colega que me passou a dica na internet, criei a seguinte função: function verData(mSender: TField; const Text: String):TField; begin try if Text= ' / /' then mSender.Clear else mSender.AsString:=Text; except on e:e