Fórum Label - como deixa no formato Moeda. #615710

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;