整数型定义变量用integer,而浮点型float怎么定义呢？

Question

还出错
在数据库(paradox)中有一个字段A7是N型的，当然有小数位数了，我想对A7进行累加，也就必须要先定义一个变量。

Answer 1

Field.AsFloat取得实际的数值，变量使用Double、Real都可以

Answer 2

var
sum_a:Double;
begin
 .......
 sum_a:=0.00;
 query1.First;
 while not Query1.Eof do begin
  sum_a:=sum_a+query1['a7'];
  query1.next;
 end;
end;
上面语句总是出错，我主要想得到query1的A7字段的合计数。
请教各位我该怎么办。

Answer 3

试用 sum_a := Sum_a +Query1.FieldByName('A7').AsFloat;
或 .AsBCD;

Answer 4

var
sum_a:Double;
begin
 .......
 sum_a:=0.00;
 query1.First;
 while not Query1.Eof do begin
  sum_a:=sum_a+query1['a7'].AsFloat;
  query1.next;
 end;
end;