请看以前的帖子<br><br>我想编一个打字测试程序，一边打一边显示字数和速度，但不知如何实现(特别是中文或者中英混合的情况)。 <br> <br>g622 (2000-11-19 19:43:20) <br>因为是打字就可以不考虑鼠标了，在onchange事件里，依次判断每个个字节是否大于128，<br>如是，汉字加一，且忽略后面的1个字符;若小于则是ascii。<br>公共变量<br>charcount:integer;中英文字符总数<br>v:integer;速度<br>st:tdatetime;开始时间<br><br>onchange:<br>k:=0;<br>for i:=1 to length(memo1.text) do<br>begin<br> //控制符号就不算了吧 <br> if ms=控制符号，10,13,tab等 then<br> continue;<br> //是否是中文<br> if ord(ms)>128 then <br> begin<br> //ms+ms[i+1]是一个汉字<br> k:=k+1;<br> continue;<br> end<br> else<br> k:=k+1; <br>end;<br>charcount:=k;<br>v:=k/(now()-st);<br><br> <br>
