delphi mapx 获得一个图层的字段

//获得一个图层的字段

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;