原文为RichEdit控件倒入的一个文本文件,打字输入到另一个RichEdit中,请问该怎么统计输入的总字数(汉字,包括标点,但不包括空格和回车,换行),正确字数。
最好给代码。谢谢!!!分不够再加。
最好给代码。谢谢!!!分不够再加。
解决方案 »
- delphi中用ADO连接SQL2005数据库的问题,寻求高手解答
- delphi中scrollbox的宽度怎么取
- 看看我的设计,大家交个朋友
- 请问各位大虾,本人要实现DELPHI6开发直接与OREACLE数据库服务器连接的客户端程序,但是现在条件是客户端不能装OREACLE客户端?
- 如何通过TIMAGE或TDBIMAGE将图片存入到数据库picture字段里?
- 请问几个东东是什么意思 我现在正在用
- 请指证我-----程序中的错误
- 关于网上寻呼和手机短消息。。。
- 未知名的数据库名称?
- 如何将窗体做成dll
- 在MDI中,防止同一个MDIChild Form被重复创建---出来乍道分数不多请多指教
- 请问如何将Word文档以流的形式写入XML文档,谢谢
var m,i:integer;
begin
m:=0;
for i:=1 to length(s) do
begin
if (ord(s[i])=10) or(ord(s[i])=13)or(ord(s[i])=32) then inc(m);
end;
result:=length(widestring(s))-m;
end;procedure TForm1.Button1Click(Sender: TObject);
var s:string;
begin
s:='物品的'+#13+#10+' ';
showmessage(inttostr(getlen(s)));
end;