| Предыдущая тема :: Следующая тема |
| Автор |
Сообщение |
Марина
Зарегистрирован: 18.07.2005
Сообщения: 8
Откуда: Самарский центр недвижимости
|
 Добавлено: Пт 28 Апр 2006 11:16 Заголовок сообщения: Создание топосвязей |
 |
|
Необходимо создать топосвязи для выделенного объекта. Но при редактировании списка топосвязей тополист не обновляется!
| Код: |
procedure AddTopo(Links:TStringList);
var
app: IngeoApplication;
MOs: IIngeoMapObjects;
id: widestring;
IngeoObj: IIngeoMapObject;
Topo: IIngeoTopoLinks;
index: integer;
begin
id := app.Selection.IDs[0];
MOs := app.ActiveDb.MapObjects;
IngeoObj := app.ActiveDb.MapObjects.GetObject(id);
Topo := IngeoObj.TopoLinks;
for index := 0 to Links.Count-1 do
Topo.Add(Links[index]);
MOs.UpdateChanges;
Topo := nil;
IngeoObj := nil;
MOs := nil;
app := nil;
end;
|
Что я делаю не так?
P.S. Версия Ingeo 4.3.0.201
_________________
Марина. |
|
| Вернуться к началу |
|
 |
andreichernov
Зарегистрирован: 14.02.2005
Сообщения: 209
Откуда: Самара
|
| Добавлено: Сб 29 Апр 2006 01:22 Заголовок сообщения: |
|
|
Вместо
IngeoObj := app.ActiveDb.MapObjects.GetObject(id);
надо написать
IngeoObj := MOs.GetObject(id); |
|
| Вернуться к началу |
|
|
|
FAQ
Поиск
Пользователи
Группы
Регистрация
Профиль
Войти и проверить личные сообщения
Вход
