mapx delphi获得一个图层字段

//获得一个图层的字段 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;