float
Eu tenho um edit que recebe determinado valor do tipo float. Como faço para obrigar o usuário digitar um float para não dar problema na inclusão.
Por exemplo: se o usuário digitar 7, tranformar para 00007,00 tanto na hora de incluir como alterar e buscar esse dado.
Por exemplo: se o usuário digitar 7, tranformar para 00007,00 tanto na hora de incluir como alterar e buscar esse dado.
Marcela
Curtidas 0
Respostas
Schirmer
17/07/2003
olha, sempre que o usuário digitar algo no edit, estará entrando com texto...
você pode formatar utilizando o format no evento onExit... (por exemplo)
mas o que você deve cuidar é na hora de gravar....
quando vai gravar em uma tabela com campo float, deve utilizar o seguinte:
TabelaNOMECAMPO.Value := StrToFloat(Edit.Text);
você pode formatar utilizando o format no evento onExit... (por exemplo)
mas o que você deve cuidar é na hora de gravar....
quando vai gravar em uma tabela com campo float, deve utilizar o seguinte:
TabelaNOMECAMPO.Value := StrToFloat(Edit.Text);
GOSTEI 0
Midas
17/07/2003
é dado tipo moeda ou apenas decimal ?
pois tenho uma função para moeda fera ...hehehehe
pois tenho uma função para moeda fera ...hehehehe
GOSTEI 0
Midas
17/07/2003
moeda
no onexit
edit1.text:=format(´¬m´,[strtofloat(edit1.text)]);
no onexit
edit1.text:=format(´¬m´,[strtofloat(edit1.text)]);
GOSTEI 0
Einstein
17/07/2003
no evento on Key press digite:
If not( key in ([Key<#45] and [´0´..´9´] ) then Key:=0;
com esse Código oEdit só aceitará Virgula, BackSpace e Números;
se tiver algum erro entra em contato comigo, pois não estou na minha máquina;
If not( key in ([Key<#45] and [´0´..´9´] ) then Key:=0;
com esse Código oEdit só aceitará Virgula, BackSpace e Números;
se tiver algum erro entra em contato comigo, pois não estou na minha máquina;
GOSTEI 0
Midas
17/07/2003
decimal
noonexit
edit1.text:=format(´¬f´,[strtofloat(edit1.text)]);
noonexit
edit1.text:=format(´¬f´,[strtofloat(edit1.text)]);
GOSTEI 0