//获得一个图层的字段

procedure GetFieldList(FMap: Tmap; layername: string; List: Tstringlist);
var
    pMapXDataset                        : CMapXDataset;
    i                                   : integer;

    pmapxlayer                          : Cmapxlayer;
begin
    pmapxlayer := FMap.Layers.Item[layername];

    pMapXDataset := FMap.Datasets.Add(miDataSetLayer, pmapxlayer,
        EmptyParam, EmptyParam, EmptyParam, EmptyParam, EmptyParam, EmptyParam);

    if pMapXDataset <> nil then
    begin
        for i := 1 to pMapXDataset.Fields.Count do //从1开始
        begin
            List.Add(pMapXDataset.Fields.Item[i]._Name);
        end;

    end;

end;