[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