Установил 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);
Прошу помочь разобраться, как теперь создать подобъект?
Сергей Викторович написал: Прошу помочь разобраться, как теперь создать подобъект?
Цитата
Сергей Викторович написал: 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);
Денис, если не сложно, подскажите как здесь избавиться от предупреждения 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);
n := MapObj3.Metric.SubObjCount; n := MapObj3.Metric.CreateSubject; Значения переменной n не используется в коде. Данную переменную можно удалить из объявления: Var i,pc : integer;
Сергей Викторович написал: Денис, если не сложно, подскажите как здесь избавиться от предупреждения Delphi, что переменная n объявлена, но нигде не используется.