千山暮雪
路人甲
路人甲
  • 注册日期2004-06-25
  • 发帖数87
  • QQ
  • 铜币352枚
  • 威望0点
  • 贡献值0点
  • 银元0个
阅读:1756回复:1

请教AddFeature的用法

楼主#
更多 发布于:2005-04-13 15:45
<P>  我在用AddFeature添加图元时,它的RowValues参数该怎么用?语法如下</P>
<P>OBJECT.AddFeature (Source, [RowValues]) </P>
<P>我的代码如下,请高手看看!</P>
<P>procedure TfrmMain.SaveToFeature(LayerName:String);
var
  SelFeature:MapXLib_TLB.CMapXFeature;
  rvs:MapXLib_TLB.RowValues;
  i,iCount:Integer;
begin
  //获得选择要素的总数
  iCount:=Map.Layers.Item[EditLayerName].Selection.Count;
  if iCount<=0 then
  begin
    MsgBox1(handle,'请先选择要添加的元素!','保存信息');
    exit;
  end;
  try
    for i:=1 to iCount do
    begin
      SelFeature:=Map.Layers.Item[EditLayerName].Selection.Item;
      rvs:=Map.Layers.Item[EditLayerName].DataSets.Item.RowValues[SelFeature];
      Map.Layers.Item[LayerName].AddFeature(SelFeature,rvs);
      Map.Layers.Item[EditLayerName].DeleteFeature(SelFeature);
    end;
  except
    on E:Exception do ShowMessage(E.Message);
  end;
end;</P>
喜欢0 评分0
你来自北京周口, 我来自云南元谋, 我拉着你毛茸茸的小手, 轻轻的咬上一口, 啊, 是爱情让我们直立行走!
千山暮雪
路人甲
路人甲
  • 注册日期2004-06-25
  • 发帖数87
  • QQ
  • 铜币352枚
  • 威望0点
  • 贡献值0点
  • 银元0个
1楼#
发布于:2005-04-18 09:30
你来自北京周口, 我来自云南元谋, 我拉着你毛茸茸的小手, 轻轻的咬上一口, 啊, 是爱情让我们直立行走!
举报 回复(0) 喜欢(0)     评分
游客

返回顶部