Foros Club Delphi - Usar constantes en QuickReport

Foros Club Delphi (https://www.clubdelphi.com/foros/index.php)

- Impresión (https://www.clubdelphi.com/foros/forumdisplay.php?f=4)

- - Usar constantes en QuickReport (https://www.clubdelphi.com/foros/showthread.php?t=93954)

Usar constantes en QuickReport

Buenas. En un formulario que se imprime con QuickReport 3.6.2 tengo un QRExpr en el que necesito emplear un valor constante calculado previamente a la generación del mismo. Hago esto:
1. Calculo ese valor que va a ser constante.

Código:

int nValor = 0;

Query->First();

for (; !Query->Eof; Query->Next())

     nValor += Query->FieldByName("Valor")->AsInteger;

2. Defino el valor de Expression en un TQRExpr.

Código:

Expr1->Expression = "100 * Query->FieldByName("Valor")->AsInteger / " + FormatFloat("0, nValor);

Supongamos que la suma da un total de 225 y que el primer valro del query fuera 47; si ejecuto corriendo con el depurador al llegar a esa línea veo que queda así:

Código:

Expr1->Expression = "100 * Query->FieldByName("Valor")->AsInteger / 225";

Pero al imprimir en vez de mostrar 20,89 me deja un espacio en blanco.

Ya sé que me vais a decir: si es la suma de un campo de un query ¿por qué no poner en el query un SUM(Valor)?
He estado probando. El query que estoy usando está basado en el que me sugirió bucanero en Cambiar formato de salida en un query, pero cuando trato de introducir en el mismo que me haga SUM(Votos) o me da el mismo valor que el propio campo o me da error de ejecución el query, dependiendo de donde ponga ese SUM(Votos).

Para construir cadenas en C y similares te recomiendo que uses sprintf. Usa el mismo mecanismo que printf, solo que admite un parámetro más donde le indicas un buffer para almacenar la cadena resultante. Con ello podrás asegurarte de que la cadena resultante sale como tú quieres, sin que salgan espacios extra. Supongo que sabes cómo funciona printf:

Código PHP:


		
			
  char Buffer[1024];



  sprintf (Buffer, "100 * %d / %f", Query->FieldByName("Valor")->AsInteger, nValor);

  Expr1->Expression = Buffer; /* Supongo que es C++, y que Expression es "std::string"·. */

[ps] Debería añadirse C/C++ a los lenguajes soportados del foro, que [code][/code] no queda bien.

Hola.

No tengo a mano C++ Builder en este momento, pero creo que la cadena almacenada en Expression se debería componer así:

Código PHP:


		
			
 {
  AnsiString nomQuery = "Query";  // Nombre de tu DataSet (Query)
  AnsiString nomField = "VALOR";     // Nombre de tu campo (VALOR)

  Expr1->Expression = nomQuery + "." + nomField + " * 100 / " + IntToStr(nValor);

En el ejemplo de anterior declaré las variables para aclarar el concepto, pero se podría reducir a:

Código PHP:


		
			
{
  Expr1->Expression.sprintf("Query.VALOR * 100 / %d", nValor);
  
  // O también:
  Expr1->Expression = "Query.VALOR * 100 / " + IntToStr(nValor);

Saludos :)

Gracias por vuestros consejos. Lo probaré.