Fórum validando campo para não dar erro. #288040
14/07/2005
0
Não consegui descobrir ainda uma maneira para não acontecer um erro no exit do campo.
Exemplo:
No On exit do campo eu edito o valor digitado desta forma..
edtValor.Text:= FormatFloat(´R$ #,0.00´, (StrToFloat(edtValor.Text)));
E na hora de inserir eu tiro o ponto.
Funciona uma beleza!
Mas no exit do edtValor.text se o usuário digitar o valor, e voltar para o campo da pau.
Diz que nao é um valor Float etc...
Outra coisa se o usuário digitar 10,,0,0,0 da erro.
Ou seja depende do usuário colocar certo o valor!
Isso eu não queria.
Preciso de uma maneira para editar o valor da maneira correta mesmo o usuário querendo errar o valor...
Ou seja, para não acontecer o erro, de maneira alguma!
obrigado.
Lynx
Curtir tópico
+ 0Posts
14/07/2005
Arc
edtValor.text := formatfloat(´#,0.00´,StrToFloat(StringReplace(edtValor.text, ´.´, ´´, [rfReplaceAll])));
Espero ter ajudado
Gostei + 0
14/07/2005
Lynx
Muito Obrigado.
Mas só uma dúvida, eu sei que ninguém vai cadastrar um valor 0,75.
Mas tem como usar isso e conseguir cadastrar este valor...
porque nao vai poder digitar a virgula e se colocar, 075 vai para 75 reais.
Gostei + 0
14/07/2005
Lynx
if key in [´0´..´9´,#8] then
key := key
else
key := 0;
para o cara somente numeros.
Se eu deixo digitar virgula, com a dica que você escreveu vai dar erro se ele digitar (2 virgulas juntas) ,, etc...
Gostei + 0
14/07/2005
Arc
if key in [´0´..´9´,8,´,´]then
key := key
else
key := 0;
Digita os valores sem ponto
Digite a ´,´ somente se tiver decimal
Gostei + 0
14/07/2005
Lynx
tratei o erro com try tb...
obrigado
Gostei + 0
Clique aqui para fazer login e interagir na Comunidade :)