TCurrencyEdit migrando pra TEdit

Delphi

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

Matheus Soares

Curtidas 0

Respostas

Felipe Souza

Felipe Souza

17/01/2018

Olá, tente usar o formatfloat(“#0.00”, variavel) para converter o valor monetário para string.
GOSTEI 0
Felipe Souza

Felipe Souza

17/01/2018

txt_valorvista.Text := FormatFloat(“#0.00”, TOTAL_VISTA);
GOSTEI 0
Felipe Souza

Felipe Souza

17/01/2018

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