TMapObj.Metric

TMapObj

Метрика.

property Metric: TMapMetric;

Описание:

Свойство возвращает указатель на экземпляр класса TMapMetric. Этот класс обеспечивает доступ к метрическому описанию объекта карты. Например, функция, определяющая равны ли два объекта по метрике может выглядеть следующим образом:

//=================================================

function MapObjMetricIsEqual(aMapObj1, aMapObj2 : TMapObj; const aDelta : double) : integer;

var

 xx1, yy1, xx2, yy2 : double;

 icount, jj : integer;

begin

Result := 1; // совпадают

icount := aMapObj1.Metric.PointCount[0];

if icount <> aMapObj2.Metric.PointCount[0]

   then begin

     Result := 0; // не совпадают

     exit;

   end;

aMapObj1.PlaceOut := PP_PLANE;

aMapObj2.PlaceOut := PP_PLANE;

for jj := 0 to icount -1 do

 begin

   aMapObj1.Metric.Points[0,jj].GetPoint(xx1, yy1);

   aMapObj2.Metric.Points[0,jj].GetPoint(xx2, yy2);

   if (abs(xx1-xx2) > aDelta)

      or (abs(yy1-yy2) > aDelta)

      then begin

        Result := 0;

        break;

      end;

 end;

end;

//=================================================