Fórum como tratar erro gerado por função StrToFloat? #142222
28/02/2003
0
Como faço para evitar erro na conversão do conteúdo de um Edit em que não foi digitado um valor?
Jairtonfs
Curtir tópico
+ 0Posts
28/02/2003
Okama
StrToFloat(Edit1.text);
Except
On EConvertError do Begin
if Edit1.text <> ´´ then
Showmessage(´Erro de conversão´)
else
Showmessage(´Edit Não preenchido!) ;
end;
end;
Gostei + 0
28/02/2003
Carnette
campoquerecebefloat := strtofloat(variavelstring)
except
ShowMessage(´ocorreu alguma coisa´);
variavelstringe.setfocus;
end;
Gostei + 0
28/02/2003
Marcelo
Como faço para evitar erro na conversão do conteúdo de um Edit em que não foi digitado um valor?
é simples, é so vc colocar o seguinte codigo onde esta dando erro...
begin
If Edit1.Text <> ´´ then
begin
... {o codigo que já existe em seu programa, o qual esta dando erro}
end
else
begin
ShowMessage(´Digite algum valor numerico no campo!´);
end;
Se nao der certo me avise!
end;
Gostei + 0
28/02/2003
Marimbondo
Assim:
StrToFloatDef(String,0);
Ou seja, o valor zero será o valor padrao para se algo der errado na convesao de dados de Str para Float.....
Valeu
Sidnei
Gostei + 0
Clique aqui para fazer login e interagir na Comunidade :)