W
wjfgm
Unregistered / Unconfirmed
GUEST, unregistred user!
D6+sql2000
我的原代码如下：
var
shd[0..10] of string;
begin
if DBGrid1.SelectedRows.Count>0 then//如果选择行数大于0
begin
with DBGrid1.DataSource.DataSet do
for i:=0 to DBGrid1.SelectedRows.Count-1 do
begin
GotoBookmark(pointer(DBGrid1.SelectedRows.Items));
shd:=query1.fieldbyname('fcdk_djh').AsString;
if DBGrid1.SelectedRows.Count<2 then s:=shd
else
s:=s+shd+'/';
bookmark:='';
end;
end;
end;
当所选行数小于12行时，一切正常，但当大于或等于12行时就出错，提示：
Access violation at address 004045B2 in module 'sellmangage.exe'.Read of address
FFFFFFFA'
看提示，好像是内存冲突或内存溢出，请问这是什么原因造成的，如何解决？
问题解决立刻散分！
我的原代码如下：
var
shd[0..10] of string;
begin
if DBGrid1.SelectedRows.Count>0 then//如果选择行数大于0
begin
with DBGrid1.DataSource.DataSet do
for i:=0 to DBGrid1.SelectedRows.Count-1 do
begin
GotoBookmark(pointer(DBGrid1.SelectedRows.Items));
shd:=query1.fieldbyname('fcdk_djh').AsString;
if DBGrid1.SelectedRows.Count<2 then s:=shd
else
s:=s+shd+'/';
bookmark:='';
end;
end;
end;
当所选行数小于12行时，一切正常，但当大于或等于12行时就出错，提示：
Access violation at address 004045B2 in module 'sellmangage.exe'.Read of address
FFFFFFFA'
看提示，好像是内存冲突或内存溢出，请问这是什么原因造成的，如何解决？
问题解决立刻散分！