editando valor.

Question

Boa Noite.Vou torrar a paciencia de voc�s mais um pouco... :lol: Vou editar um valor no exit do campo desta maneira.  edtValor.Text:= FormatFloat(�R$ #,0.00�, (StrToFloat(edtValor.Text)));At� ai tudo ...

Marcusbraga · Answer

Se n�o me engano ele s� da se voce digitar o ponto

o que voce pode fazer � colocar no evento

onkeypress

if key in [�0�..�9�,�,� ,#8] then
key := key
else
key := 0;

isso s� permite que voce digite

numeros de 0 a 9, a virgula e o backspace

Lynx · Answer

mas se ele digitar exemplo:2,44,4,4 da pau...tem como validar isso ?para ele n precisar digitar a virgula.Exemplo:050 = 0,50etc...

Lynx · Answer

o que eu precisava, � que no onenter do campo deseditar o valor...pq quando sai e j� estiver com virgula da pau......

Marcusbraga · Answer

A virgula n�o da pau, o ponto � que da e voce pode usar a mesma fun��o

texttocurr

antes de formatar o valor

ex:

no on exit

converte:= texttocurr(edit1.text);
edit1.text := formatfloat(�R$ #,0.00�, converte);

Marcusbraga · Answer

esse neg�cio de ele formatar sozinho n�o tem como

se fosse 050 e saisse 0,50 at� teria como fazer uma fun��o pra isso
mas em outro valor tipo 35535 le poderia interpretar de varias formas

35.535,00 ou 3553,50 ou 355,35 como ele saberia onde colocar a virgula seria muito complicado o que voce pode fazer

voce poderia fazer isso

no evento onexit

try
converte:= texttocurr(edit1.text);
edit1.text := formatfloat(�R$ #,0.00�, converte);
except
Showmessage(� Valor inv�lido!!�);
end;

Lynx · Answer

o pau que eu refiro, � quando sai do campo  e o valor j� estiver editado com virgula...e se o cara digitar virgula errado etc...da muito pau...

F�rum editando valor. #287979