程序師世界是廣大編程愛好者互助、分享、學習的平台,程序師世界有你更精彩!
首頁
編程語言
C語言|JAVA編程
Python編程
網頁編程
ASP編程|PHP編程
JSP編程
數據庫知識
MYSQL數據庫|SqlServer數據庫
Oracle數據庫|DB2數據庫
 程式師世界 >> 編程語言 >> 更多編程語言 >> Delphi >> delphi編程統計中英文字的個數

delphi編程統計中英文字的個數

編輯: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;

  1. 上一頁:
  2. 下一頁:
Copyright © 程式師世界 All Rights Reserved