Delphi - SUMA DE REGISTROS DE UN CAMPO

SALUDOS,
TENGO UNA TABLA PARADOX 7 CON SOLO DOS CAMPOS UNO LLAMADO Codigo Y OTRO LLAMADO Precio, ENTONCES QUIERO PROGRAMAR CON UN Button QUE MUESTRE LA SUMA DE TODOS LOS REGISTROS DE LA COLUMNA Precio, MEDIANTE UN Showmessage.

fijate bien:

realizaremos una consulta sql de tipo SUM;

PASOS:

DEBERAS COLOCAR UN QUERY
EN EL EVENTO ONCLICK DEL BOTON COLOCAMOS LO SIGUENTE;

WITH QUERY1 DO
BEGIN
CLOSE;
SQL.CLEAR;
SQL.ADD('SELECT SUM(PRECIO) AS TOTAL FROM XTABLA');
OPEN;

END;
SHOWMESSAGE('EL TOTAL ES '+ INTTOSTR(QUERY1TOTAL . VALUE));

O J O

LA CONSULTA DEBES COLOCARLAR PRIMERO EN LA PROPIEDAD SQL DEL QUERY Y YA SABES LO OTRO, ES POSIBLE QUE TENGAS PROBLEMAS AL PASAR EL VALOR OBTENIDO EN EL QUERY EN ESTE CASO PUEDES USAR UNA VARIABLE PARA QUE ATRAPES EL VALOR.


SUERTE: LSAMBOY

LSAMBOY , TE DIGO QUE EL CODIGO QUE ME ENVIASTE NO FUNCIONA, DA UN ERROR Y NO SE COMO RESOLVERLO. PERO TE DIGO QUE SOLO UTILISO TRES ELEMENTOS TALES COMO: DBGrid, Table1, y un DataSource1. ENTONCES EL CONTENIDO DE LA TABLA LO MUESTRO CON EL DBGRID Y LOS TRES ELEMENTOS ESTAN ASOCIADOS.
SI PUEDES ENTENDERME AYUDAME POR FA. GRACIAS

Y APRENDE, COÑO!!!

No funciona!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!