Delphi Open Tools Api实例研究（一）[18]

 end;

 editview:=editor.editviews[i];

 //使用iotasourceeditor的 editviews[]属性得到一个iotaeditview

 editwriterpos:=editview.position;

 //使用iotaeditview的position属性最终得到一个iotaeditposition

 editwriterpos.inserttext('{///  this is add by the otatest of hk.barton,enjoy days!  ///}');

 //iotaeditposition的inserttext方法向当前光标位置插入一行代码，这里是一行注释。

end;

procedure tntatest.aboutform(sender: tobject);