使用ArcObjects程序来遍历一个文本文件

<TABLE width="100%">

<TR>
<TD class=subtitle colSpan=6>容摘要</TD></TR>
<TR>
<TD class=txt colSpan=6>这篇文章提供了一个使用ArcObjects来遍历文本文件的例子。</TD></TR>
<TR>
<TD class=subtitle colSpan=6>过程描述</TD></TR>
<TR>
<TD class=txt colSpan=6>1 打开ArcMap。
2 打开定制对话框，添加一个新的UIButtonControl控件。
3 右击UIButtonControl选择浏览源代码。
4 拷贝这段代码到UIButtonControl 的点击事件中。
Dim pMxdoc As IMxDocument
Set pMxdoc = ThisDocument
Dim pTable As ITable
Dim pStandColl As IStandaloneTableCollection
Dim pStandTab As IStandaloneTable
Set pStandColl = pMxdoc.FocusMap
Set pStandTab = pStandColl.StandaloneTable(0)
Set pTable = pStandTab
Dim pRow As IRow, pCursor As ICursor
Set pCursor = pTable.Search(Nothing, False)
Set pRow = pCursor.NextRow

'为每条记录显示一个消息框
Do Until pRow Is Nothing
MsgBox pRow.Value(0) ; " : " ; CStr(pRow.Value(1))
Set pRow = pCursor.NextRow
Loop
5 用下面的内容创建一个Cities.txt文件，列名必须用双引号括起来，各列的值必须用逗号隔开。
"CITY","POPULATION"
Los Angles,14234953
New York,17834034
6 添加Cities.txt到ArcMap中。
7 使用新创建的UIButtonControl来遍历Cities.txt文件。</TD></TR></TABLE>

可有Delphi的？

<P>我试过好象不行啊 </P><P>Set pStandTab = pStandColl.StandaloneTable(0)</P><P>出问题了</P><P>请问是怎么回事？谢谢</P>