X
xiaohong
Unregistered / Unconfirmed
GUEST, unregistred user!
我在用DELPHI5 编写数据库程序时，遇到了这样的问题：
在遍历 TABLE1 时使用了以下语句：
var
i,j,aaa:integer;
begin
i:=0;
j:=1;
Table1.DisableControls ;
Gauge1.MaxValue :=Table1.RecordCount ;
Table1.First ;
while not Table1.Eof do
begin
// 此处为一自定义函数 JiSuanDate,
// 判断处理该记录的 '日期' 等数据,返回一INTEGER 型值.
aaa:=JiSuanDate;
Table1.Edit;
Table1['xxxxx']:=aaa;
Table1.Post ;
i:=i+aaa;
Gauge1.Progress :=j;
inc(j);
Table1.Next ;
end;
Gauge1.Progress:=0;
Table1.EnableControls ;
end;
当记录比较少时，大约在100条左右，进度条速度快，当记录增大到4000条时，
进度条速度慢得难以忍受。
后来在 Table1.OnCalcFields 事件中调用此函数并增一计算字段，结果很快，
但不能将计算字段结果写回到Table1['xxxxx']中.
急请各位仙人指点、解决这两问题。
在遍历 TABLE1 时使用了以下语句：
var
i,j,aaa:integer;
begin
i:=0;
j:=1;
Table1.DisableControls ;
Gauge1.MaxValue :=Table1.RecordCount ;
Table1.First ;
while not Table1.Eof do
begin
// 此处为一自定义函数 JiSuanDate,
// 判断处理该记录的 '日期' 等数据,返回一INTEGER 型值.
aaa:=JiSuanDate;
Table1.Edit;
Table1['xxxxx']:=aaa;
Table1.Post ;
i:=i+aaa;
Gauge1.Progress :=j;
inc(j);
Table1.Next ;
end;
Gauge1.Progress:=0;
Table1.EnableControls ;
end;
当记录比较少时，大约在100条左右，进度条速度快，当记录增大到4000条时，
进度条速度慢得难以忍受。
后来在 Table1.OnCalcFields 事件中调用此函数并增一计算字段，结果很快，
但不能将计算字段结果写回到Table1['xxxxx']中.
急请各位仙人指点、解决这两问题。