熱點推薦:
您现在的位置: 電腦知識網 >> 編程 >> Delphi編程 >> 正文

delphi編程統計中英文字個數

2013-11-23 17:34:55  來源: 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
    推薦文章
    Copyright © 2005-2013 電腦知識網 Computer Knowledge   All rights reserved.