这个while是Bug还是优化后的结果？？

wqrz15 2005-08-02 12:48:54

调用的时候ShowGridMoney（2）然后F7跟进第一次while循环时TabType是2 以后几次TabType都是0了是优化的结果？？这也太离谱了吧_-##

procedure TFrmBorrowBill.ShowGridMoney(TabType:integer);
var
money:double;
begin
money:=0;
if HKMemTab1.IsEmpty=true then exit;

while not HKMemTab1.Eof do
begin
if TabType=1 then
begin
money:=money+HKMemTab1.FieldByName('SumMoney').Value;
end;
if TabType=2 then
begin
money:=money+HKMemTab1.FieldByName('Amerce_Money').Value;
end;
HKMemTab1.Next;
end;

edtMoney.Text:=floatToStr(money);
end;

...全文

196 15 打赏收藏转发到动态举报

写回复

用AI写文章

15 条回复

切换为时间正序

请发表友善的回复…

发表回复

LocustWei 2005-08-02

打赏
举报

回复人： yayx(yayx) ( ) 信誉：99 2005-08-02 17:36:00 得分: 0

一般是其他某个地方赋值的时候溢出了

建议你把所有的变量一个一个屏蔽排除以下

zsjzwj 2005-08-02

打赏
举报

在procedure TFrmBorrowBill.ShowGridMoney(TabType:integer);
中TabType只是用来进行比较，建议改为
procedure TFrmBorrowBill.ShowGridMoney(const TabType:integer);

亮剑_ 2005-08-02

打赏
举报

优化也不可能把逻辑优化错了啊，要不你改成把 if 改成 case 看看还优化不

yayx 2005-08-02

打赏
举报

一般是其他某个地方赋值的时候溢出了

建议你把所有的变量一个一个屏蔽排除以下

wqrz15 2005-08-02

打赏
举报

Ctrl + F 选择 Find in Files在正个project里面查找这个TabType，看有没有其它地方定义
***********************************************
查了别的地方没有赋值

procedure CreateMemTab(TabType:integer);
function InsertItem(TabType:integer):BOOL;

都做为函数的参数生命周期应该只在函数里头吧而且在这几个函数里只是if判断没有赋值操作

wqrz15 2005-08-02

打赏
举报

while not HKMemTab1.Eof do
begin
if TabType=1 then
begin
money:=money+HKMemTab1.FieldByName('SumMoney').AsCurrency;
end
else if TabType=2 then
begin
money:=money+HKMemTab1.FieldByName('Amerce_Money').AsCurrency;
end;
HKMemTab1.Next;
end;

这样子我还不如这样子：
if TabType=1 then
begin
HKMemTab1.First;
while not HKMemTab1.Eof do
begin
money:=money+HKMemTab1.FieldByName('SumMoney').Value;
HKMemTab1.Next;
end;
end;
if TabType=2 then
begin
HKMemTab1.First;
while not HKMemTab1.Eof do
begin
money:=money+HKMemTab1.FieldByName('Amerce_Money').Value;
HKMemTab1.Next;
end;
end;

****************************
问这个问题就是不知道这是不是优化后的结果啊以前看过for的优化结果是倒过来的

wlbfeihu 2005-08-02

打赏
举报

应该好好考虑问题的所在，不要上来就bug要是这样的编译器谁还敢用啊

hqhhh 2005-08-02

打赏
举报

用下面的试试：
procedure TFrmBorrowBill.ShowGridMoney(TabType:integer);
var
money:double;
begin
money:=0;
if HKMemTab1.IsEmpty=true then exit;

while not HKMemTab1.Eof do
begin
if TabType=1 then
begin
money:=money+HKMemTab1.FieldByName('SumMoney').AsCurrency;
end
else if TabType=2 then
begin
money:=money+HKMemTab1.FieldByName('Amerce_Money').AsCurrency;
end;
HKMemTab1.Next;
end;

edtMoney.Text:=floatToStr(money);
end;