Substituir vírgula por ponto em uma string

Esta função retorna a string com os caracteres de vírgula substituídos por ponto. Para testa-la você precisará de um botão e dois TEdits.

Vamos ao código-fonte:

procedure TFormTeste.ButtonSubstituiClick(Sender: TObject);
begin
    //Aqui será passado para o EditResult o resultado da funcao VirgtoPonto
    EditResult.Text := VirgtoPonto(EditOriginal.text);
end;

Function TFormTeste.VirgtoPonto(Text: string) : string;
var
    n : integer;
    Texto_Result: string;
begin
      for n := 1 to length(Text) do
      begin
       //Checa se o caracter atual é uma vírgula
       if Copy(Text,n,1) = ',' then
       //caso seja uma vírgula, acrescenta um ponto na string
        Texto_Result := Texto_Result + '.'
      else
      //Caso não seja uma vírgula, copia o caracter para a string
        Texto_Result := Texto_Result + copy(Text,n,1);
       end;
    Result := Texto_Result;
end;

Technorati Tags: delphi, edit, string, function