Fun��o pra trocar ponto por V�rgula. E como usa-l�

Question

Estou com um edit e preciso de uma fun��o que troque ponto por v�rgula. E tambem como usar essa fun��o... Onde colocar...<BR>Se alguem puder ajuda

Fabiano G�es · Accepted Answer

se o problema � s� trocar ponto por virgula
pode ser resulvido com apenas uma linha:

   SeuEdit.txt := StringReplace(SeuEdit.txt, �.�, �,�, []);

ai voc� pode usar no OnExit do seu edit.

abra�o

Salvou minha vida tamb�m ! Obrigado ! :)

Mayron Cachina · Answer

Ol�,
com esse m�todo vc pode fazer isso:

function TrocaVirgPPto(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;
  end;
  Result := valor;
end;

Rafael Belarmino · Answer

Caro Fabiano Goes muito obrigado me ajudou muito !!!...

Elison Faria · Answer

no onKeyPress do objeto coloqueif Key in [.] then Key := #44;...

Roberto Alves · Answer

Salvou minha vida tamb�m ! Obrigado ! :)...