erro em edit vazio

Delphi

05/05/2004

Olá pessoal, estou com 1 problema, fiz 1 programa simples e fiz um IF verificando caso o edit esteja em branco, exiba 1 mensagem (showmessage) na tela, só que sempre da erro, no edit é formato integer (StrToInt), como faço pra nao da erro ?

desde já agradeço a ajuda.


Diegobarcelos

Diegobarcelos

Curtidas 0

Respostas

Wtjunior

Wtjunior

05/05/2004

Diogo

Vc não pode converter um valor NÃO numérico para numérico, no caso do edit.text ser NULO então a conversão StrToInt vai dar erro mesmo.
Para solucionar verifique se o edit.text é diferente de nulo ...
if edit.text <> emptystr then
StrToInt()

Wilson


GOSTEI 0
Blivio

Blivio

05/05/2004

Diogo Vc não pode converter um valor NÃO numérico para numérico, no caso do edit.text ser NULO então a conversão StrToInt vai dar erro mesmo. Para solucionar verifique se o edit.text é diferente de nulo ... if edit.text <> emptystr then StrToInt() Wilson


Complementando a dica do amigo, você pode usar a função StrToIntDef que assume um valor padrão (definido por você) caso a conversão retorne um erro.

Sintaxe: StrToIntDef(string, default)
Onde: string - valor a ser convertido para inteiro.
default - valor a ssumir caso [b:c76cbf0611]string [/b:c76cbf0611]não seja um inteiro válido

StrToIntDef(Edit1.text, -1);
{se o Edit1.text não tiver um número válido, a função retorna o segundo parâmetro, no caso, -1}

Espero ter ajudado.


Atenciosamente,


Blivio.


GOSTEI 0
Cbier

Cbier

05/05/2004

Tente assim:

if edit1.text = ´ ´ then

showmessage.......

Pode usar no onexit do edit

CBier


GOSTEI 0
POSTAR