Delphi 从字符串中提取汉字的函数

本文整理自网络，侵删。

 
{从字符串中提取汉字的函数}
procedure StrToHanZiList(str: string; var List: TStringList);
var
  p: PWideChar;
begin
  if List = nil then List := TStringList.Create;
  List.Clear;
  {去除重复}
  List.Sorted := True;
  List.Duplicates := dupIgnore;
  
  p := PWideChar(str);
  while p^ <> #0 do
  begin
    case p^ of
      #$4E00..#$9FA5: List.Add(p^);
    end;
    Inc(p);
  end;
end;
 

相关阅读 >>

indy 中idhttp元件出现http status 302错误

Delphi topendialog打开和取消按钮的选择

Delphi 使用onvalidate事件或onvalidating事件验证在输入字段（tedit）中输入的值

Delphi access 导出 excel 表格

Delphi 如何用程序控制禁止和起用上网？

Delphi 修改webbrowser的内容

Delphi comobj调用wmplayer播放音乐

Delphi 获取所有应用程序窗口标题 类似任务管理器

Delphi vcl 的 tpagecontrol 控件，实现对页签的拖动

Delphi让listbox实现即指即显功能

更多相关阅读请进入《Delphi》频道 >>

转载请注明出处：木庄网络博客 » Delphi 从字符串中提取汉字的函数