<P>procedure TForm1.RenderIconicMarkers(hDC: Cardinal);
var
  recsCur: IMoRecordSet;
  shpField: IMoField;
  pt : IMoPoint;
begin
  recsCur := IMoMapLayer(Map1.Layers.Item(0)).Records;
  shpField := recsCur.Fields.Item('Shpe');
  while not recsCur.EOF do
  begin</P>
<P>//**********************************************************************************
    pt := IMoPoint( shpField.Value );   //  Error here: Invalid typecast</P>
<P>//**********************************************************************************</P>
<P> DrawIcon(hDC,0,pt);   //在点上绘制图标
  end;
end;
</P>

<P>ding</P>

<P>功能还是比较简单的，关键问题有2项：</P><P>1、数据</P><P>2、拓扑分析</P><P>搂主如果对相关的应用比较了解的话，我想问题不大</P>

<P>要做得比较好的话,得看你现在的知识咯,</P>
<P>如果你什么都不知道的话,半年都不太可能哟!</P>