delphi中求和问题

Question

大家好，我是新手，用delphi编程时出现了点问题，计算结果总不对，请高手指点一下，程序为var
i:integer;
nsum,sum:integer;begin nsum:=0;
sum:=0;
for i:=0 to table1.RecordCount-1 do
begin
sum:=sum+table1.fieldbyname('price').AsInteger;
nsum:=nsum+table1.fieldbyname('quantity').AsInteger;
end;
Edit1.Text := IntToStr(nSum);
edit2.Text :=inttostr(sum);
edit3.Text :=inttostr(nsum*sum);

Answer 1

把代码这样改一下,如何?其它还是要哦
table1.First;
for i:=0 to table1.RecordCount-1 do
begin
sum:=sum+table1.fieldbyname('price').AsInteger;
nsum:=nsum+table1.fieldbyname('quantity').AsInteger;
table1.Next;
end;

Answer 2

:integer;
nsum,sum:integer;begin nsum:=0;
sum:=0;
do while not able1.eof() do
begin
sum:=sum+table1.fieldbyname('price').AsInteger;
nsum:=nsum+table1.fieldbyname('quantity').AsInteger;
able1.next;
end;