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 ));