如何统计richedit中的总字数(100分)

T

tianyu717

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-08-07

• #1

请问如何统计richedit中的总字数，不是字节数，就是按中文习惯。
比如:“abc我的幸运日”字数是8。thankss

 

N

Nizvoo

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-08-07

• #2

Length()
不知道满足不？

 

L

linsb

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-08-07

• #3

procedure TForm1.Button1Click(Sender: TObject);
var
strw:widestring;
s,i:word;
begin
s:=0;
for i:=0 to Richedit1.lines.count-1 do begin
strw:=RichEdit1.Lines;
s:=s+Length(strw);
end;
showmessage('总字数：'+IntToStr(s));
end;

 

L

ldaan3

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-08-08

• #4

就是先判断有几行，
然后把每行的字数读出来，再相加，就ok了

 

T

tianyu717

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-08-08

• #5

大家怎么都是半夜活动者呀？同行。哈哈。

 

T

tianyu717

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-08-08

• #6

不好意思。有的错了。linsb写的代码非常对。又及时。发分了。
可以的话给我说一下　widestring　这个与STRING的区别。
谢谢。