delphi編程統計中英文字個數

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

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

　　procedure TFormButtonClick(Sender: TObject);
　　var s:string;
　　iec:integer;
　　begin
　　s:=memotext;
　　e:=;c:=;
　　for i:= to length(s) do
　　begin
　　if (ord(s[i])>=)and(ord(s[i])<=) then
　　begin
　　inc(e);
　　labelcaption:=英文字數+inttostr(e);
　　end
　　else
　　if (ord(s[i])>=) then
　　begin
　　inc(c);
　　labelcaption:=中文字數+inttostr(c div );
　　end;
　　end;
　　end;

From:http://tw.wingwit.com/Article/program/Delphi/201311/24715.html