说清楚一点,是数据集的记录个数,还是各记录数值的和?
如果是第一个
Label1.Caption:=IntTOStr(Table1.RecordCount);
如果是第二个
写一个函数记算
Example:
procedure addrecord;
var
i:integer; // for add integer record
f:Real; // for add real record
begin
Table1.First;
i:=0;
f:=0;
while not Table1.Eof do
begin
i:=i+Table1.FieldByName('FieldName1').Value; //integerField
f:=f+Table1.FieldByName('FieldName2').Value; //real field
Table1.Next;
end;
Table1.First;
Label1.Caption:=IntToStr(i);
Label2.Caption:=FloatToStr(f);
end;
