Delphi統計中英文文字個數

統計字符個數，不管是在Delphi中還是其它的編程語言中，都是經常遇到的。那麼在Delphi中是如何統計出中英文文字的個數呢？今天這個代碼就是挺簡單的，你可以在窗體的文本框中輸入一段含有中方和英文的文字，它可以分別統計中中文字數和英文字數。下面是運行截圖：

代碼如下：

vIEw source print? 01 unit Unit1; 02 interface 03 uses 04   Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, 05   Dialogs, StdCtrls; 06 type 07   TForm1 = class(TForm) 08     Memo1: TMemo; 09     Label1: TLabel; 10     Label2: TLabel; 11     Button1: TButton; 12     procedure Button1Click(Sender: TObject); 13   private 14     { Private declarations } 15   public 16     { Public declarations } 17   end; 18 var 19   Form1: TForm1; 20 implementation 21 {$R *.dfm} 22 procedure TForm1.Button1Click(Sender: TObject); 23 var 24   s: String; 25   i,e,c: Integer; 26 begin 27   s := Memo1.text; 28   e := 0; 29   c := 0; 30   for i:=1 to Length(s) do 31   begin 32     if (Ord(s[i]) >= 33) And (Ord(s[i])<=126) then 33     begin 34      Inc(e); 35      Label1.Caption := '英文字數：'+ IntToStr(e); 36     end 37     else 38      if (Ord(s[i]) >= 127) then 39      begin 40        Inc(c); 41        Label2.Caption := '中文字數：' + IntToStr(c div 2); 42      end; 43     end; 44 end; 45 end.