Считать объект слоя карты
function ReadMapObject(MOS: TMapObjectStructure; lCode: integer; oID: int64;
IdType: TObjectIdType = idtOKEY; aFieldList: TStrings=nil;
flLoadEqualPoints: boolean=false): integer;
MOS
oID
IdType
aFieldList
flLoadEqualPoints
Считывание информации об объекте осуществляется экземпляр класса структуры объекта. определяется параметром IdType) FieldList, а их значения - в список ValueList объекта MOS, для пустых полей значение свойства "Object" соответствующего элемента равно TObject(1))
var MOS: TMapObjectStructure; lCode: integer; oIndex: integer; oType: integer; oStyleID: int64; Count: integer; i0,i1,Count: integer; ofl: word; x,y: double; begin lCode:=99; oIndex:=2; MOS:=TMapObjectStructure.Create; Count:=Mappl.ReadMapObject(MOS,lCode,oIndex,oType,oStyleID,ofl,false); if Count > 0 then begin for i0:=0 to MOS.SubObjectsCount-1 do // цикл по подобъектам begin for i1:=0 to MOS.VertexesCount[i0]-1 // цикл по точкам подобъекта begin x:=MOS.X[i0,i1]; // координата X 11-ой точки i0-го подобъекта y:=MOS.Y[i0,i1]; // координата Y 11-ой точки i0-го подобъекта end; end; end; MOS.Free; end;