В цикл while begin end программа не заходит.
Попробовал закомментировать цикл см.ниже
// Заполнить в объект пересечение в obj (пересечений может быть много)
// while (mapGetNextCross(cross, obj) <> 0) do
// begin
LengthCross := mapConventionalSubjectLength(obj, 0); // Здесь пытаюсь вычислить длину отрезка линейного объекта, который находится внутри площадного объекта
ShowMessage ('LengthCross = '+FloatToStr(LengthCross)); // Здесь показывает 0
// end;
результат все тот же LengthCross := 0
Похоже я не понимаю, правильно ли вообще вычисляется для отрезка линии пересекающая площадной объект.
Попробовал закомментировать цикл см.ниже
// Заполнить в объект пересечение в obj (пересечений может быть много)
// while (mapGetNextCross(cross, obj) <> 0) do
// begin
LengthCross := mapConventionalSubjectLength(obj, 0); // Здесь пытаюсь вычислить длину отрезка линейного объекта, который находится внутри площадного объекта
ShowMessage ('LengthCross = '+FloatToStr(LengthCross)); // Здесь показывает 0
// end;
результат все тот же LengthCross := 0
Похоже я не понимаю, правильно ли вообще вычисляется для отрезка линии пересекающая площадной объект.