Fórum Formatar TCurrencyEdit para separar o valor inserido com casas deicmais #478608

function formataCurrency(texto: string): string;
var
  textoSemFormatacao: string;
  result1, result2 : string;
  i, count :Integer;
begin
    if texto <> '' then
    begin
      for i := 1 to length(texto) do
      begin
        if (Copy(texto,i,1) <> ',') and (Copy(texto,i,1) <> '.') then
          textoSemFormatacao := textoSemFormatacao + Copy(texto,i,1);
      end;

      textoSemFormatacao := IntToStr(StrToInt64(textoSemFormatacao));

      if length(textoSemFormatacao) <= 2 then
      begin
        while length(textoSemFormatacao) < 4 do
        begin
          if length(textoSemFormatacao) = 2 then
            textoSemFormatacao := ',' + textoSemFormatacao
          else
            textoSemFormatacao := '0' + textoSemFormatacao;
        end;
        result := textoSemFormatacao;
      end
      else
      begin
        count := 0;
        for i:=length(textoSemFormatacao) downto (length(textoSemFormatacao)-2) do
        begin
          count := count + 1;
          if count = 3 then
            result1 := copy(textoSemFormatacao,i,1) + ',' + result1
          else
            result1 := copy(textoSemFormatacao,i,1) + result1;
        end;

        count := 0;

        for i:=(length(textoSemFormatacao)-3) downto 1 do
        begin
          count := count + 1;
          if count = 3 then
          begin
            result2 := copy(textoSemFormatacao,i,1) + '.' + result2;
            count := 0;
          end
          else
            result2 := copy(textoSemFormatacao,i,1) + result2;
        end;

        result := result2 + result1;
      end;
    end;
end;

  edt1.Text := formataCurrency(edt1.Text);
  edt1.SelStart :=Length(edt1.Text)