Esto es un ejemplo de como puede hacerse:
Código Delphi
[-]
procedure TForm1.DetailBand1BeforePrint(Sender: TQRCustomBand;
var PrintBand: Boolean);
var
nValouble;
begin
nVal:=QrExpr1.Value.dblResult;
ShowMessage(FormatFloat(',0.00',nVal));
end;
No tienes más que sustituir nVal, que es una variable que yo he creado a modo de ejemplo por el nombre del campo.
Otra cosa es que yo no estoy de acuerdo con el procedimiento ya que pienso que esto debe resolverse por código contra la misma Tabla o tablas.
En cualquier caso tienes que tener en cuenta que yo lo he declarado como
Double porque en mi caso el ejemplo sabía que el resultado era este, si fuera otro esta es la información que necesitas.
Código Delphi
[-]
type TQREvResultType = (resInt, resDouble, resString, resBool, resError)
type TQREvResult = record
case Kind : TQREvResultType of
resInt : (intResult : Longint);
resDouble : (dblResult : Double);
resString : (strResult : String[255]);
resBool : (booResult : Boolean);
end
Un Saludo.