delphi編程統計中英文字個數

　　中國使用的是漢字，而又夾雜這些英文，這樣我們在數字數時就麻煩了，電腦是按字節來計算，一個漢字算兩個字，而中國人的習慣是一個漢字就是一個字，所以通過電腦來計算必須解決下列問題：

　　利用文本控件TMemo來存放文章，分別對中、英文的字符數進行統計，我們可以通過把字符轉換為ASCII碼數值來進行判斷，Ord()函數就可以把字符轉換為對應的數值，值33-126為鍵盤可使用字符，值127以上的為未知字符，即為漢字。

　　
procedure TForm1.Button1Click(Sender: TObject);
var s:string;
i,e,c:integer;
begin
s:=memo1.text;
e:=0;c:=0;
for i:=1 to length(s) do
begin
if (ord(s[i])>=33)and(ord(s[i])<=126) then
begin
inc(e);
label1.caption:=英文字數：+inttostr(e);
end
else
if (ord(s[i])>=127) then
begin
inc(c);
label2.caption:=中文字數：+inttostr(c div 2);
end;
end;
end;