[artzub]

Добрый день!

Помогите разобраться с коллекциями. Проблема в следующем:

есть com-server WinPrice.WPLib ладно в общем код:

Код:

              
var
   WinPrice,
   Profile,
   Query : OleVarian;
....
                    try                    
                        CoInitialize(nil);
                        WinPrice := CreateOleObject('WinPrice.WPLib');
                    except                       
                    end;

                    Profile := WinPrice.OpenProfile(ini.ReadString(IDFIRM, 'Profile', ''));                 
                    Query := Profile.CreateQuery;
                    Query.Comment := 'блабла';

                    {
                     в идеале должно быть так:
                     Query.DestPoint := Profile.DestPoints(ClientID);  
                     но выдает ошибку Член Группы не найден!
                    }

                    for I := 0 to Profile.DestPoints.Count - 1 do
                    begin
                         // нормально UID показывает
                         if Profile.DestPoints.Item[i].UID = ClientID then
                              // выдает ошибку Член группы не найде
                              Query.DestPoint := Profile.DestPoints.Item[i];                                
                    end; 

Вот кусок описания WPA

Коллекция DestPoints

Коллекция DestPoints содержит все доступные адреса доставки. Элементами коллекции являются объекты WPDestPoint. В качестве индекса при обращении к элементам коллекции можно использовать либо числовой индекс (первый элемент имеет индекс 0), либо уникальный идентификатор пункта доставки (см. свойство UID объекта WPDestPoint).