Virgula por Ponto para gravar no Banco de Dados

Question

Pessoal,Estou precisando converter um valor que esta assim em um edit:255,55para string:255.55para que eu possa gravar este valor em um banco Firebird .. tenho que trocar a virgula pelo ponto. tentei ...

Vitor Alcantara · Answer

Tenta uma fun��o simples;[code:1:e91e0cb825]Function VirgPorPonto(d:Double):String;var  x:integer;  s:String;  Aux:String;begin  aux := ��;  s := FloatToStrf(d,ffFixed,10,2);  For x := 1 To Length(s) do  if s&#91;x&93; = �,� then  Aux := Aux + �.�  else  Aux := Aux + s&91;x&93;;  Result := Aux;end;[/code:1:e91e0cb825]e Para utilizar faz assim:[code:1:e91e0cb825]  ShowMessage(VirgPorPonto(v));[/code:1:e91e0cb825]...

Adriano Santos · Answer

[quote:be39248a89=�mMOREIRA�]Pessoal,Estou precisando converter um valor que esta assim em um edit:255,55para string:255.55para que eu possa gravar este valor em um banco Firebird .. tenho que trocar a virgula pelo ponto. tentei assim mas nao funcionou:ShowMessage( FormatFloat(�0.00�,v) );[/quote:be39248a89]O neg�cio � loko, deveria funcionar. Se n�o conseguir de jeito nenhum, d� uma for�ada. Cria uma function que fa�a isso pra voc�. D� uma olhada:[code:1:be39248a89]function TrocaVirgulaPorPonto(AString: string): String;var  I : Integer;  S : string;begin  S := ��;  for I := 1 to Length(AString) do    if  AString&#91;I&93; = �,� then      S := S + �.�    else      S := S + AString&91;I&93;;  Result := S;end;[/code:1:be39248a89]...

Mmoreira · Answer

� isso ai pessoal pelo visto isso vai ter de ser feito no bra�o mesmo .. tem esta funcao tambem:

function AlteraSubstring( pString, pVelho, pNovo : string ) : string;
begin
  Result := StringReplace( pString, pVelho, pNovo, [rfReplaceAll] );
end;

Esta ai tambem solucinou o problema.

Obrigado a todos pela aten��o.

Nightshade · Answer

usa essa fun��o antes de uma conversao, se tu usar ela antes de gravar no banco, ele converter� para o formato nacional com virgula o separador decimal..
utilizo muito ela

DecimalSeparator := �,�;

F�rum Virgula por Ponto para gravar no Banco de Dados #343032