Label - como deixa no formato Moeda.

06/05/2021

Boa pessoal.
Tirei o seguinte c�digo abaixo de um v�deo

Foi criado uma procedure chamada Procedure_Totaliza
Dentro dessa procedure coloquei a linha de c�digo abaixo:

procedure Tfrm_Jogos_LF.Procedure_Totaliza;
var
  vQryTotais: TFDQuery;
  vSql: string;
begin
  vQryTotais := TFDQuery.Create(nil); 
  vQryTotais.Transaction := fdtItem;
  vQryTotais.Connection := dados.Conexao;
  try 
    vSql := ''SELECT SUM(QTD * VALOR_UNITARIO) TOTAL '' + #13 +
      '' FROM LF_CONCURSOS_JOGOS '' + #13 + '' WHERE ID_CONCURSOS_CAB = '' +
      IntToStr(fdQryCadastroID_CONCURSOS_CAB.AsInteger);

    Procedure_Atualizar_FDQuery(vQryTotais, vSql);

   // edt_Tot_Total.Value := vQryTotais.FieldByName(''TOTAL'').AsFloat;
    lbl_Totalizador.Caption := FloatToStr (vQryTotais.FieldByName(''TOTAL'').AsFloat);

  finally
    vQryTotais.Close;
    FreeAndNil(vQryTotais);
  end;
end;

Essa linha de c�digo, gostaria que o meu Label chamado de lbl_Totalizador recebesse o valor no formato moeda, tipo R$ 1.000,00
Como seria a linha de c�digo para dar certo o formato moeda do exemplo acima.

A linha do c�digo que esta comentada, o componente ligado a ela dar certo, mais fica muito feio no projeto que estou desenvolvendo, ent�o em um label visualmente ficaria mais apresent�vel o valor.

Conto com a ajuda de voc�s. Desde j� obrigado pela aten��o.

Rubens Pena

Curtir t�pico + 0

Responder

Post mais votado

06/05/2021

http://docwiki.embarcadero.com/Libraries/Sydney/en/System.SysUtils.Format

http://docwiki.embarcadero.com/Libraries/Sydney/en/System.SysUtils.CurrToStrF

http://docwiki.embarcadero.com/Libraries/Sydney/en/System.SysUtils.FloatToStrF

Emerson Nascimento

Responder

Gostei + 1

Mais Posts

10/05/2021

Natanael Ferreira

Exemplo:

lbl_Totalizador.Caption := FormatFloat('##,###,##0.00', vQryTotais.FieldByName('TOTAL').AsFloat);

Responder

Gostei + 1

15/05/2021

Rubens Pena

Obrigado a todos. Emerson Nascimento pelos links (conhecimento nunca � de mais, obrigado pelos links) e Natanael Ferreira (Obrigado pela modifica��o no meu c�digo - Deu certo.)

Responder

Gostei + 0