Левой стороне не может быть ничего присвоено

← →
qwerty2 (2003-12-08 18:01) [0]

что за странная ошибка такая?
ругается на эту строчку:
VarArrayRedim(cls.OptionalProperties,vararrayhighBound(cls.OptionalProperties,1)+1);
тут и присваиваний нет никаких

← →
Silver Alex © (2003-12-08 18:10) [1]

> тут и присваиваний нет никаких

а что же это, ты берешь массив cls.OptionalProperties и меняешь его размер на один больше "vararrayhighBound(cls.OptionalProperties,1)+1"

← →
PVOzerski © (2003-12-08 18:21) [2]

2[1]:
Здесь-то утверждать, что делается что-то недопустимое, нельзя. Как и вообще нельзя ничего сказать. Ведь мы не знаем даже типы переменных в этом выражении.

← →
qwerty2 (2003-12-09 10:22) [3]

Речь идет о том чтоб дополнить массив свойств данного объекта из ADS дополнительным свойством.

user:IADsUser;
cls : IADsClass;
...
ADsOpenObject("LDAP://Domain1/CN=Username1,OU=Otdel1,OU=Firma1,DC=ads,DC=xxx","Administrator","Pwd",ADS_SECURE_AUTHENTIC ATION,IADsUser,user);
s := user.Get_Schema;
AdsOpenObject(s,"Administrator","Pwd", ADS_SECURE_AUTHENTICATION,IADsClass, cls);
VarArrayRedim(cls.OptionalProperties,vararrayhighBound(cls.OptionalProperties,1)+1);//ошибка
cls.OptionalProperties[vararrayhighBound(cls.OptionalProperties,1)+1]:="temp";//та же ошибка

В интерфейсе IADsClass свойство OptionalProperties описано как свойство с доступом на чтение и на запись:

property OptionalProperties: OleVariant read Get_OptionalProperties write Set_OptionalProperties;
если был бы только доступ на чтение тогда такая ошибка была бы предсказуема. а так непонятно почему она вылазит.

возможно нельзя передавать в функцию свойство обьекта, попробуй что-то типа этого

var
v: variant;
...
v:=cls.OptionalProperties;
VarArrayRedim(v,vararrayhighBound(cls.OptionalProperties,1)+1);
cls.OptionalProperties:=v;

Левой стороне не может быть ничего присвоено Найти похожие ветки