IMapDataAdapter.Data

Копировать пример

Class TextDataAdapter: Object, IMapDataAdapter
    Public Str: String;
    Function Get_Data(Attribute: Variant): Variant;
    Var
        shape: IMapTopobaseShape;
    Begin
        shape := Attribute As IMapTopobaseShape;
        Return Str + shape.Name;
    End Function Get_Data;
End Class TextDataAdapter;

Class TestForm: Form
    UiMap1: UiMap;
    MapBox1: MapBox;
    Button1: Button;
Sub Button1OnClick(Sender: Object; Args: IMouseEventArgs);
Var
    Da: TextDataAdapter;
    MapDa: IMapDataAdapter;
    M: IMap;
    mLayers: IMapLayers;
    mLayer: IMapLayer;
    mShapes: IMapTopobaseShapes;
    mShape: IMapTopobaseShape;
    i: integer;
Begin
    Da := New TextDataAdapter.Create;
    Da.Str := "Это ";
    MapDa := Da As IMapDataAdapter;
    M := UiMap1.Map;
    mLayers := M.Layers;
    mLayer := mLayers.FindByName("Regions");
    mShapes := mLayer.Shapes;
    For i := 0 To mShapes.Count - 1 Do
        mShape := mShapes.Item(i);
        Debug.WriteLine(MapDa.Data(mShape));
    End For;
    mLayer.TextDataAdapter := MapDa;
    mLayer.TextVisible := True; 
End Sub Button1OnClick;
End Class TestForm;