C
czx_china
Unregistered / Unconfirmed
GUEST, unregistred user!
这样编译可以通过,但是执行时会跳出"不允许进入指定汇编中的索引"
for Idx := 1 to Wordapplication.ActiveDocument.Shapes.Count do
begin
count:=Idx;
Wordapplication.ActiveDocument.Shapes.Item(count).Delete;
end;
for Idx := 1 to Wordapplication.ActiveDocument.Shapes.Count do
begin
count:=Idx;
Wordapplication.ActiveDocument.Shapes.Item(count).Delete;
end;