怎样计算字符的多少（包括中英文字符）？

Question

ShowMessage('双字节字符:' +
    IntToStr(Length(Memo1.Text) - Length(WideString(Memo1.Text))));
  ShowMessage('单字节字符:' +
    IntToStr(Length(Memo1.Text) -
    (Length(Memo1.Text) - Length(WideString(Memo1.Text)))));

Answer 1

var
   s:widestring;
   i,sing,doub:longint;
begin
   s:=memo1.text;
   sing:=0;
   doub:=0;
   for i:=0 to length(s)-1 do
      begin
           if length(s[i])>1 then
                 doub:=doub+1
           else
                 sing:=sing+1;
      end;
showmessage(inttostr(doub));//汉字数
showmessage(inttostr(sing));//英文数
end;