Usando try except

try
JvZoom1.ZoomPercentage := StrToInt(Edit1.Text);
except
MessageDlg(‘o edit não esta vazio nem conter caracteres, apenas numeros’,mtError, mbOKCancel, 0);
edit1.Text := IntToStr(100);
end;

Esse post foi publicado em Macarrão e marcado , , . Guardar link permanente.

Deixe uma resposta

Preencha os seus dados abaixo ou clique em um ícone para log in:

Logotipo do WordPress.com

Você está comentando utilizando sua conta WordPress.com. Sair / Alterar )

Imagem do Twitter

Você está comentando utilizando sua conta Twitter. Sair / Alterar )

Foto do Facebook

Você está comentando utilizando sua conta Facebook. Sair / Alterar )

Foto do Google+

Você está comentando utilizando sua conta Google+. Sair / Alterar )

Conectando a %s