如题...

解决方案 »

  1.   

    不用逐行统计也可以,给你一个不合常理的方法:
    t:=tstringlist.creat;
    t.loadfromfile('你的文本文件');
    s:=stringreplace(t.txt,' ',,[rfReplaceAll]); 
    c=length(t.txt)-length(s);  //空格的个数,为0即无空格
    。。
    当然你可用tregexpr(正则)来做,要比逐行统计程序上方便些(效率不管了)
      

  2.   

    程序没测试,到底还是写错了,上面应该是:
    s:=stringreplace(t.txt,' ','',[rfReplaceAll]);  //去掉所有空格
     
      

  3.   

    str:string;length(str)-length(trim(str));
      

  4.   

    trim不能去掉中间的空格
    所以你的不可用