На главную... Продукты | Технологии | Классификаторы | Проекты | Скачать | Цены| Форум | Статьи | Обучение | Контакты

Не создается подобъект

Поиск  Пользователи  Правила  Войти
Форум » Настольные приложения » GIS ToolKit, GIS ToolKit Active, ГИС Конструктор для Windows
Страницы: 1
RSS
Не создается подобъект
 
Здравствуйте!

Установил GisToolKit Free 14.1.1.0
Перестало работать создание подобъекта
 
 n := MapObj3.Metric.SubObjCount;
 MapObj3.Metric.SubObjCount := n+1; // Пишет Cannot assign ro read-only property, это работало.
 n := MapObj3.Metric.SubObjCount;
 pc := MapObj1.Metric.PointCount[0];
  For i := 1 to pc do
  begin
  px := MapObj1.Metric.Points[0,i].X;
  py := MapObj1.Metric.Points[0,i].Y;
  mapAppendPointPlane(MapObj3.ObjHandle,px,py,n);
  end;
  mapCommitObject(form_main.MapObj3.ObjHandle);

Прошу помочь разобраться, как теперь создать подобъект?
Изменено: Сергей Викторович - 15.03.2022 20:37:51
 
Цитата
Сергей Викторович написал:
Прошу помочь разобраться, как теперь создать подобъект?


Цитата
Сергей Викторович написал:
 n := MapObj3.Metric.SubObjCount;
 MapObj3.Metric.SubObjCount := n+1; // Пишет Cannot assign ro read-only property, это работало.
 n := MapObj3.Metric.SubObjCount;

 n := MapObj3.Metric.CreateSubject;
 pc := MapObj1.Metric.PointCount[0];
  For i := 1 to pc do
  begin
  px := MapObj1.Metric.Points[0,i].X;
  py := MapObj1.Metric.Points[0,i].Y;
  mapAppendPointPlane(MapObj3.ObjHandle,px,py,n);
  end;
  mapCommitObject(form_main.MapObj3.ObjHandle);
 
Цитата
Денис Вицко написал:
n := MapObj3.Metric.CreateSubject;
Да, вроде все хорошо.
Спасибо, Денис.
 
Денис, если не сложно, подскажите как здесь избавиться от предупреждения Delphi, что переменная n объявлена, но нигде не используется.
На программу это не влияет, но лишнее предупреждение тоже хотелось бы убрать.

Var
i,pc,n    : integer;
begin

n := MapObj3.Metric.SubObjCount;
n := MapObj3.Metric.CreateSubject;
pc := MapObj1.Metric.PointCount[0];

  For i := 1 to pc do
  begin
  px := MapObj1.Metric.Points[0,i].X;
  py := MapObj1.Metric.Points[0,i].Y;
  mapAppendPointPlane(MapObj3.ObjHandle,px,py,n);
  end;
 mapCommitObject(form_main.MapObj3.ObjHandle);

end;
Изменено: Сергей Викторович - 16.03.2022 11:22:17
 
Из объявления
Var
i,pc,n    : integer;
уберите переменную
 
Цитата
Andrey Gheleznyakov написал:
Vari,pc,n    : integer;уберите переменную
Как это убрать?
Компилятор сразу сказал, что переменная n не объявлена.
Наверное я что-то не знаю, как объявить переменную n по другому?
 
n := MapObj3.Metric.SubObjCount;
n := MapObj3.Metric.CreateSubject;  
Значения  переменной  n  не используется в коде.
Данную переменную можно удалить из объявления:
Var
i,pc    : integer;
 
Цитата
Сергей Викторович написал:
Денис, если не сложно, подскажите как здесь избавиться от предупреждения Delphi, что переменная n объявлена, но нигде не используется.

Если переменная объявлена, даже если ей присвоено значение, но далее эта переменная никак не используется, компилятор считает такое объявление лишним и говорит об этом.
Предупреждения можно выключить - см. https://docwiki.embarcadero.com/RADStudio/Sydney/en/Hints_and_Warnings
 
Цитата
Денис Вицко написал:
Предупреждения можно выключить - см.  https://docwiki.embarcadero.com/RADStudio/Sydney/en/Hints_and_Warnings
Спасибо, Денис.
Страницы: 1
Читают тему (гостей: 1)



© КБ Панорама, 1991-2024

Регистрируясь или авторизуясь на форуме, Вы соглашаетесь с Политикой конфиденциальности