Delphi Example of a Layer Dataset

procedure TMapForm.LayerDSButtonClick(Sender: TObject);
var
 MexLayer: Layer;
 MexData: Dataset;
begin
 try
  MexLayer := Map1.Layers.Item('Mexico');

  { Import the extra data from the Mexico table and create a
    theme from it. }
  MexData := Map1.Datasets.Add(miDataSetLayer, MexLayer,
   EmptyParam, EmptyParam, EmptyParam, EmptyParam,
   EmptyParam, EmptyParam);
  MexData.Themes.Add(miThemeRanged, 'Pop_90', EmptyParam,
   EmptyParam);
 except
  on E: EOleException do

   Application.MessageBox(PChar(E.Message), 'Error',
    MB_OK or MB_ICONERROR);
 end;
end;

http://www.gisempire.com/bbs/dispbbs.asp?boardID=42&ID=1634

楼上的，给我这个是什么意思呢？

xieixe