Fiz a seguinte instrução passada pelo amigo Renato da lista-Delphi

Amigo

Passei por situação semelhante. Faça o sseguinte, use essa função três
vezes:
Substitua o '.' Por qualquer outro caractere (eu usei o '_'). Depois
substitua o ',' por '.', e finalmente substitua o '_' por ','.

Espero que ajude,

Renato
Senda




  ----- Original Message ----- 
  From: Claudiney Cogo 
  To: delphi-br@yahoogrupos.com.br 
  Sent: Tuesday, June 24, 2008 8:09 AM
  Subject: Re: [delphi-br] Mais uma ...Conversão


  Bom dia Filippe

  Já tentou no início desse form (pode ser no create dele) colocar as 
instruções:

  ThousandSeparator := ',';
  DecimalSeparator := '.';

  Isso vai fazer a sua aplicação usar a , como separador de milhares e o . como 
separador de decimal. Dessa maneira você paga o valor como tá lá e salva no 
banco. A aplicação cuida da conversão. Acredito que resolverá o problema pra 
você.

  Abraço
  __________________________________
  Claudiney Cogo
  N2 Sistemas e Soluções em Informática
  Av. São Paulo, 172 - 15º Andar - Sala 1505
  Maringá - Paraná
  www.n2solutions.com.br
  www.studion2.com.br

  ----- Original Message ----- 
  From: Filippe Maymone 
  To: [EMAIL PROTECTED] ; delphi-br@yahoogrupos.com.br 
  Sent: Tuesday, June 24, 2008 6:59 AM
  Subject: [delphi-br] Mais uma ...Conversão

  Galera, 

  Preciso de mais uma ajudinha ai .. 
  Meu sistema importa uma tabela de preços, que estes preços estão em Dolar ... 
EXEMPLO 235.62 Dolares.
  Eu preciso importa isso para meu banco, so que preciso converter ... 
  Fiz uma função para localizar os '.' dentro do campo e substituir por ',', 
mais quando tenho 1.250.00, esta ficando assim 1,250,00 .. gostaria de saber 
como tenho qeu fazer para fazer essa conversão .. tem algum comandn oque vonrte 
direto isso pra mim ?? ou alguma função ... 

  Abraços

  Filippe Maymone

  [As partes desta mensagem que não continham texto foram removidas]

  __________ NOD32 3212 (20080624) Information __________

  This message was checked by NOD32 antivirus system.
  http://www.eset.com

  [As partes desta mensagem que não continham texto foram removidas]



   

[As partes desta mensagem que não continham texto foram removidas]

Responder a