QUERY한 자료의 합을 레코드의 이동 없이 구하려고합니다.

그런데 bm := Table1.GetBookmark; 이부분이 에러가 납니다.

고수님 부탁드립니다. 한번 봐주셨으면 합니다.





unit Unit1;



interface



uses

Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,

Db, DBTables, StdCtrls, Grids, DBGrids;



type

TForm1 = class(TForm)

Edit1: TEdit;

Table1: TTable;

DataSource1: TDataSource;

DBGrid1: TDBGrid;

private

{ Private declarations }

public

{ Public declarations }

end;



var

Form1: TForm1;



implementation





{$R *.DFM}

var ar : real;

bm : TBookmark;



begin

ar := 0;

bm := Table1.GetBookmark;

Table1.DisableControls;

Table1.First;

While not Table1.EOF do

begin

ar := ar+Table1.FieldByName('AREA').asFloat;

Table1.Next;

end;

Edit1.Text := FloatToStr(ar);

Table1.EnableControls;

Table1.GotoBookmark(bm);

Table1.FreeBookmark(bm);

end.