[firebase-br] trocar virgula por ponto

Via Soluções viasolucoes em hotmail.com
Ter Fev 13 09:52:36 -03 2007


Como vai amigo..
 
Segue abaixo a função para resolver esta conversão.
 
// Troca Virgula por PontoFunction TrocaVirgulaPorPonto(Valor: String): String;Var i : Integer;Begin  If Valor <> '' Then    Begin      For i := 0 To Length(Valor) Do        Begin          If Valor[i] = '.' Then            Begin              Valor[i]:= ',';            End          Else            If Valor[i] = ',' Then              Begin                Valor[i] := '.';              End;        End;      Result := Valor;    End;End;
// Teste...
procedure TForm1.Button1Click(Sender: TObject);begin  Label1.Caption := TrocaVirgulaPorPonto(Edit1.Text);end;Abraços,Everson
 



> From: cart5sjm em uol.com.br> To: lista em firebase.com.br> Date: Tue, 13 Feb 2007 09:30:38 -0300> Subject: [firebase-br] trocar virgula por ponto> > tenho uma sql que retorna alguns dados que exporto para um arquivo texto.terei por exemplo valores assim> <valor>3,89</valor>> <Lei444/05>0,98</Lei444/05>> > preciso que saia . no lugar de , ou seja ao invés de> 3,89 saia 3.89 como posso fazer isso automaticamente?> Grata> > Fernanda Ramos - Setor Informática - 5º Ofício S.J.Meriti> ______________________________________________> FireBase-BR (www.firebase.com.br) - Hospedado em www.locador.com.br> Para editar sua configuração na lista, use o endereço http://mail.firebase.com.br/mailman/listinfo/lista_firebase.com.br> Para consultar mensagens antigas: http://firebase.com.br/pesquisa
_________________________________________________________________
Obtenha o novo Windows Live Messenger!
http://get.live.com/messenger/overview


Mais detalhes sobre a lista de discussão lista