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...Se alguem puder ajuda a�...

Fabiano G�es · Accepted Answer

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

[code:1:879cec7e92]
SeuEdit.txt := StringReplace(SeuEdit.txt, �.�, �,�, [&93;);
[/code:1:879cec7e92]

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 ! :)...