delphi 里面就有这个功能,
至于自己要编写的话,可以考虑查找‘回车符’

解决方案 »

  1.   

    运行菜单:
    Project->Build All Projects。
    编译完成的对话框就显示代码行数。
    但必须设置:Tools->Envioronment Options->Show Complier Progress。
      

  2.   

    菜单Tools|Environment Options,在Preferences页,选中Compiling  and  running里面的Show  compiler progress项,则在编译或Build的时候,会显示行数。这里显示的行数是有效行数,即编译时前面打点的行数
      

  3.   

    只有“寻找妈妈的傻孩子”才会这么干!SHIT!