1. 程式人生 > >Delphi中判斷字母與漢字

Delphi中判斷字母與漢字

 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;