[azetown]

Добрый день!
есть код для Delphi 7 (из VBS) которым пытаюсь получить доступ к порядку следования листов в AutoCad 10
но в нем есть ошибка как раз при обращении к этому свойству.
Программа самописная в ней присоединяюсь ранним связыванием к запущенному автокаду.

код ошибки что выдает "Acces violation at adress 762d5149 in module 'RPCRT.dll'. Read of adress 00000000"

кусок кода :

Код:

[Выделить все]

...
var
   ThisOne: IAcadLayout;
    i,n: integer;
    test: integer;
begin
  n:=form1.AcadDocument1.Layouts.Count;
  for i:=0 to n do 
   begin
      ThisOne:=form1.AcadDocument1.Layouts.Item(i);
       test:=form1.AcadDocument1.Layouts.Item(i).TabOrder;    ///на этой строке вываливается ошибка
   end;
end;

Подскажите куда копать в чем ошибка может быть?

[Кулик Алексей aka kpblc]

Для начала:
Версия AutoCAD?
Язык?
Внешнее приложение или внутреннее?
И всю эту информацию - в заголовок темы.

[kp+]

Ваш код:

Код:

[Выделить все]

test: integer

Из справки Acad:

TabOrder Long; read-write The tab order for the layout.

Может, дело в несовпадении типов? Не все йогурты одинаково полезны компиляторы одинаково терпимы к этому.

[azetown]

Сообщение от kp+ Ваш код: Код: [Выделить все] test: integer Из справки Acad: Может, дело в несовпадении типов? Не все йогурты одинаково полезны компиляторы одинаково терпимы к этому.

на делфях показывается что
taborder - property : integer

----- добавлено через ~8 мин. -----
дело в том, что даже просто обращения к этому свойству уже вызывает ошибку

Код:

[Выделить все]

...
form1.AcadDocument1.Layouts.Item(i).TabOrder;
...

[Александр Ривилис]

Может не

Код:

[Выделить все]

for i:=0 to n do

а

Код:

[Выделить все]

for i:=0 to n-1 do

?

[Дима_]

+ к сказанному Александром Ривилисом - проводить итерацию по индексу это моветон.

[azetown]

Сообщение от Дима_ + к сказанному Александром Ривилисом - проводить итерацию по индексу это моветон.

А как правильно делать?
я даже без цикла пробовал все равно ошибка происходит.

[trir]

Код:

[Выделить все]

ThisOne:=form1.AcadDocument1.Layouts.Item(i);
test:=ThisOne.TabOrder;