Cita:
Empezado por lisc_dla
Estuvo probando el ejemplo pero no se donde colocar la función y me muestra un error
|
Podés colocarla inmediatamente despues de la declaración
Código Delphi
[-]
interface
function SumarTotales(Grid: TDBGrid; const AFieldName: string): Currency;
....
y podes utilizarla en esa unidad sin problemas. También en otra unidad y agregarla en la declaración
uses de la unit en que desees usarla. No mencionaste el error que te genera pero supongo que será por el alcance de la función.
Una ventaja que tiene la función que te puse, es que podés utilizarla para cualquier
TDBGrid y para cualquier campo de la tabla asociada al mismo (de tipo numérico lógicamente).
Saludos.