sumar columna

[ctrl_attack]

por alguna extraña razon ahora no me esta funcionando, hace tiempo tome esta solucion y me funciono a la perfeccion en delphi7 pero ahora que estoy en delphi2010 nomas no me funciona, me salio este error

[DCC Error] Unit1.pas(340): E2010 Incompatible types: 'AnsiString' and 'TBytes'

presisamente en " Marca := adoquery1.Bookmark;" lo comprobe pues lo borre y deje el codigo sin eso, y funciono, claro que me dejo en el ultimo registro.

este es el codigo, sera que en adoquiery no funciona? lo cual dudo, pues en el 2009 lo hice, con el dephi7, como prueba esta mi comentario de arriba, jeje.

Código Delphi [-]
  var
  Total : Currency;
 Marca : TBookMarkStr;
begin
 Total := 0;
 Marca := adoquery1.Bookmark;
 adoquery1.DisableControls;

           adoquery1.First;
 While Not adoquery1.Eof do
  begin
   Total := Total + adoquery1.FieldbyName('cuenta').ASCurrency;
   adoquery1.Next;
  end;

 adoquery1.EnableControls;
 adoquery1.Bookmark := Marca;
label3.Caption:=(CurrToStr(Total ));

[marcoszorrilla]

Prueba así:

Código Delphi [-]
  var   Total : Currency;  Marca : TBookMark; begin
 Total := 0;
 Marca := adoquery1.GetBookmark();//Almacenamos la posición del registro actual en nuestra marca
 adoquery1.DisableControls;//Deshabilitamos los controles enlazados a nuestro  DataSet
            adoquery1.First;  While Not adoquery1.Eof do
   begin 
   Total := Total + adoquery1.FieldbyName('cuenta').ASCurrency;
   adoquery1.Next;
  end;

 adoquery1.EnableControls;//Habilitamos nuevamente los controles
 adoquery1.GotoBookmark(Marca);//Restauramos a la posición del registro de nuestra marca
 adoquery1.FreeBookMark(Marca);
label3.Caption:=(CurrToStr(Total ));

Un Saludo.

[ctrl_attack]

Muchas gracias amigo, me funciono a la perfeccion, gracias.