F�rum TCurrencyEdit migrando pra TEdit #590651

17/01/2018

Galera eu estava usando o componente do RXLIB TCurrencyEdit, porem me foi pedido que nao utilizasse componentes de terceiros e sim nativos do Delphi, como eu fa�o pra fazer a conversao do TEdit pra valores monetarios? ( ja utilizei o StrtoInt mas continua dando erro), segue abaixo o codigo que tentei implementar adaptando o do TCurrency pro TEdit

while not  DM.SQL_ListarPedidos.Eof do
     begin

     TOTAL_VISTA  := TOTAL_VISTA +  DM.SQL_ListarPedidossub_total.Value;
     TOTAL_PRAZO  := TOTAL_PRAZO+  DM.SQL_ListarPedidossub_prazo.Value;


      DM.SQL_ListarPedidos.Next;
     end;

//erro nessas duas linhas de baixo
     txt_valorvista.Text := TOTAL_VISTA;
     txt_valorprazo.Text := TOTAL_PRAZO;


//outro trecho que est� dando erro e nao sei como resolver

 tb_gerarparcelasPARC_VALOR.Value  := (txt_valorPrazo.Value / TOTAL_PARCELAS);

Matheus Soares

Curtir t�pico

+ 0

Responder

Posts

19/01/2018

Felipe Souza

Ol�, tente usar o formatfloat(�#0.00�, variavel) para converter o valor monet�rio para string.

Responder

Gostei + 0

19/01/2018

Felipe Souza

txt_valorvista.Text := FormatFloat(�#0.00�, TOTAL_VISTA);

Responder

Gostei + 0

19/01/2018

Felipe Souza

tb_gerarparcelasPARC_VALOR.Value := (StrToFloat(Trim(txt_valorPrazo.Text)) / TOTAL_PARCELAS);

Responder

Gostei + 0