IMapTopobasePrimitives.Count

Syntax

Count: Integer;

Description

The Count property returns the number of collection primitives.

Example

Executing the example requires a form with the following components: the Button component named Button1, the MapBox component named MapBox1, and the UiMap component named UiMap1. UiMap1 is a data source for MapBox1. The map must be connected to the UiMap1 component.

The example is a handler of the OnClick event for the Button1 component.

Add links to the ExtCtrls, Forms, and Map system assemblies.

Sub Button1OnClick(Sender: Object; Args: IMouseEventArgs);
Var
    M: IMap;
    Layer: IMapLayer;
    Shape: IMapTopobaseShape;
    Primitiv: IMapTopobasePrimitives;
    Prim: IMapTopobasePrimitive;
    i: Integer; 
Begin
    M := UiMap1.Map;
    Layer := M.Layers.FindByName("Regions");
    Shape := Layer.Shapes.Item(0);
    Primitiv := Shape.Primitives;
    i := Primitiv.Count;
    Debug.WriteLine("Number of primitives, of which the first area consists: " + i.ToString);
    Prim := Primitiv.Item(0);
    Debug.WriteLine("Name of the area, to which the primitive belongs: " + Prim.Owner.Name);
End Sub Button1OnClick;

After executing the example the console displays the following:

See also:

IMapTopobasePrimitives