Label - como deixa no formato Moeda.

Delphi

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

Rubens Pena

Curtidas 0

Melhor post

Natanael Ferreira

Natanael Ferreira

10/05/2021

Exemplo:

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

Mais Respostas

Emerson Nascimento

Emerson Nascimento

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

GOSTEI 1
Rubens Pena

Rubens Pena

06/05/2021

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.)
GOSTEI 0
POSTAR