基本信息

---

下载

   友情提示：（无需注册或充值，赞助后即可获取资源下载链接）

---

     嘿，亲！知识可是无价之宝呢，但咱这精心整理的资料也耗费了不少心血呀。小小地破费一下，绝对物超所值哦！如有下载和支付问题，请联系我们QQ(微信同号)：813200300

本次赞助数额为： 10 元　

支付宝支付

微信支付

   源码介绍

---

自己用DELPHI写的一款汉字排序实用程序，主要解决嵌入式应用编程中有关自定义汉字的排序。此软件可自动剔除排序前字符串中的ASCII码字符以及重复汉字，然后自动按汉字机内码排序，同时统计排序前后的字符数。

function TfrmMain.RemoveAscii: AnsiString;
var
  i,len: Integer;
  szText: AnsiString;
  szLine: AnsiString;
begin
  szText := AnsiString(MemoSource.Text);
  len := Length(szText);
  i := 1;
  szLine := '';
  while len > i do
  begin
    if len > i 1 then
    begin
      if (Ord(szText[i]) >= $81) and (Ord(szText[i 1]) >= $40) then
      begin
        szLine := szLine szText[i] szText[i 1];
        Inc(i, 2);
      end else
        Inc(i);
    end else
      Inc(i);
  end;
  Result := szLine;
end;