Código Delphi [-] Var n: Double; ZQUERY1.sql.clear; ZQUERY1.SQL.Text:='select sum(cmonto) as suma11 FROM tcheques'; ZQUERY1.active:=true; N:=ZQUERY1.fieldbyname('suma11').asfloat; LABEL2.CAPTION:=FloatToStrF(n,ffcurrency,8,2);
Var n: Double; ZQUERY1.sql.clear; ZQUERY1.SQL.Text:='select sum(cmonto) as suma11 FROM tcheques'; ZQUERY1.active:=true; N:=ZQUERY1.fieldbyname('suma11').asfloat; LABEL2.CAPTION:=FloatToStrF(n,ffcurrency,8,2);