Tratamento ponto e virgula

Question

Como fa�o para que o delphi n�o utilize o prad�o windows de virgula para numeros quebrados e adote ponto. Pois preciso pegar apenas alguns valores que utilizam ponto ao invez de virgula e trata-los para arrendondar.

Dor_poa · Answer

Olha, at� onde eu sei, vc. vai ter que alterar la no painel� de controles.. Config. regionasis.......

Anonymous · Answer

K-RA TEM COMO VC MANDAR PRA MIM ESSA ROTINA ..PORQUE TENHO QUE FAZER ALGO PARECIDO.. E EU COMECEI A POUCO TEMPO MEXER COM DELPHI ..OBRIGADO...

Anonymous · Answer

Cara, se eu fosse vc eu faria uma funcao e chamaria cada valor como parametro dessa funcao que tiraria Ponto e colocaria Virgula.
assim por exemplo :

for i =0 to lenght(valor) do
if valor[i] =�,� then
valor[i] := �.� ;

// isso se vc quiser trocar virgula por ponto. caso contrario vc inverte.

Anonymous · Answer

No onCreate do seu sitema, coloca DecimalSeparator := �.�

e no evento OnkeyPress coloca :

const
Teclas = [#13,52,46,8,�0�,�1�,�2�,�3�,�4�,�5�,�6�,�7�,�8�,�9�,�.�];
begin
if not (Key in Teclas) then Key := 0;

Anonymous · Answer

Completando, Onkeypress do edit ou DBEdit que vai ser digitado o valor....