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;