如何统计memo里的字符数!?

我写了一个类似编写短信的小东东,需要统计memo里的字符数.需要说明的是:逗号,句号,等...不论你是用半角输入,或全角输入,都当是一个汉字所占的字符数.望各位高手侠义相助!

解决方案 »

  1.   

    procedure TForm1.Button1Click(Sender: TObject);
    var
      aa: WideString;
    begin
      aa := Memo1.Lines.Text;
      showmessage(Inttostr(length(aa)));
    end;
      

  2.   

    length(Memo1.Lines.Text)这个很简单牙.
      

  3.   

    可能是我没有说清楚，memo中半角输入的逗号或句号用length(menmo1.lines.text)统计字符数的时候字符数是1个，可是手机短信是不区分半角的，一个标点符号所占的都当一个汉字所占的字节数来统计的。也就是说，当遇到标点符号的时候也都能当汉字来统计！小弟是初学，不知道如何判别标点符号！
      

  4.   

    用 huojiehai(海天子) 的方法，可以真实统计半角和全角的字符数