Problema com o OnExit do edit

Question

Tenho um edit que recebeu uma fun��o para completar com zeros � esquerda do n�mero digitado.O problema � que quando o foco est� nele e tento fechar o form, sem digitar um valor,  aparece uma mensagem ...

Prgdelphi · Answer

neste evento on exit, coloca uma checagem para verificar se o edit n�o est� vazio, a� sim executar o procedimento.

if Edit.text <> �� then
begin
//executa o seu tratamento dos 0s � esquerda.
end;

para ficar legal, crie um evento neste Edit, que s� permita a digita��o de numeros, caso j� n�o tenha feito.

Osocram · Answer

Amigo.Sempre que fizer alguma valida��o no OnExit e se n�o validar voltar o foco p o mesmo... sempre deixe uma maneira de sair do edit sem validar, Tipo se n�o alterar o valor, se for vazio, coisa do tipo. Sen�o vai vai se deparar com este erro que vc comentou.Isso que o amigo prgdelphi comentou � uma solu��o.Flw....

Marco Salles · Answer

�is not a valid integer value�.

provavelmente � alguma convers�o indevida que ocasionalmente esta sendo
feita .. Veja se seu codigo n�o tem alguma coisa deste tipo
inttostr(edit1.tex)

se tem ,continue a ler , sen�o tem esque�a a dica

tem uma outra solu��o ,que considero ser limpa

A partir do Delphi7 se n�o me falha a mem�ria foi lan�ada algumas
fun�oes uties de convers�o

Trouque inttostr(edit1.tex) por TryStrToInt

funciona mais ou menos assim :

var
a:integer;
begin
 if TryStrToInt(edit1.Text,a) then
    begin
      conversao bem sucetida ...
    end;
end;

F�rum Problema com o OnExit do edit #375412