用戶登錄  |  用戶注冊
首 頁源碼下載網絡學院最新源碼源碼排行屏蔽廣告
當前位置:新興網絡 > 網絡學院 > 編程開發 > Delphi

Delphi 獲得字符串中漢字的總個數

減小字體 增大字體 作者:佚名  來源:本站整理  發布時間:2010-11-02 09:53:52
Delphi 獲得字符串中漢字的總個數
Delphi code復制代碼
function HowManyChineseChar(Const s:String):Integer;
var
   SW:WideString;
   C:String;
   i, WCount:Integer;
begin
   SW:=s;
   WCount:=0;
   For i:=1 to Length(SW) do
   begin
      c:=SW[i];
      if Length(c)>1 then
         Inc(WCount);
   end;
   Result:=WCount;
end; 

Tags:漢字 Delphi

作者:佚名
  • 好的評價 如果您覺得此文章好,就請您
      0%(0)
  • 差的評價 如果您覺得此文章差,就請您
      0%(0)

網絡學院評論評論內容只代表網友觀點,與本站立場無關!

   評論摘要(共 0 條,得分 0 分,平均 0 分) 查看完整評論
皮皮麻将官网下载 全免费离线单机斗地主 北京辛运28 币赢网以太坊介格以太坊交易 万人炸金花可以提现吗 通比牛牛游戏下载 海南七星彩彩票官网 体彩七位数今晚预测 甘肃11选5开推荐号 广西快乐十分群 价格:比特币(BTC),以太坊(ETH),瑞波(XRP),柚子(EOS),莱特币(LTC) 七乐彩预测专家推荐 加拿大快乐8开奖数据 陕西快乐10分钟开奖玩法 腾讯棋牌游戏官方网站 水果拉霸规则 瑞博官方网站-点击进入