Tratamento ponto e virgula
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.
Anonymous
Curtidas 0
Respostas
Dor_poa
19/02/2003
Olha, até onde eu sei, vc. vai ter que alterar la no painelç de controles.. Config. regionasis....
GOSTEI 0
Anonymous
19/02/2003
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
GOSTEI 0
Anonymous
19/02/2003
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.
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.
GOSTEI 0
Anonymous
19/02/2003
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;
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;
GOSTEI 0
Anonymous
19/02/2003
Completando, Onkeypress do edit ou DBEdit que vai ser digitado o valor.
GOSTEI 0