F
Flashcqxg
Unregistered / Unconfirmed
GUEST, unregistred user!
我写了个DLL，定义了个i:Integer;当I的值大于10000的时候会出错，小于100000的时候就没有问题了，不知道什么回事。代码如下：
procedure ExportSBK(DBFPath: Pchar);
stdcall;
var
i:Integer;
begin
.....................
for i:=1 to 10000do
//这句如果改成1000，就没有问题，上万就出错
begin
HDS.Edit;
HDS.FieldByName(xm).AsString:='asdfa';
HDS.Append;
end;
......................
end;
procedure ExportSBK(DBFPath: Pchar);
stdcall;
var
i:Integer;
begin
.....................
for i:=1 to 10000do
//这句如果改成1000，就没有问题，上万就出错
begin
HDS.Edit;
HDS.FieldByName(xm).AsString:='asdfa';
HDS.Append;
end;
......................
end;