Função pra trocar ponto por Vírgula. E como usa-lá

24/09/2007

141

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ê


Responder

Post mais votado

24/09/2007

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


Responder

Mais Posts

24/09/2007

Mayron Cachina

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;



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

15/03/2018

Elison Faria

no onKeyPress do objeto coloque

if Key in ['.'] then Key := #44;
Responder

16/09/2021

Roberto Alves

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

Utilizamos cookies para fornecer uma melhor experiência para nossos usuários. Para saber mais sobre o uso de cookies,
consulte nossa política de privacidade. Ao continuar navegando em nosso site, você concorda com a nossa política.

Aceitar