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;

相关阅读 >>

Delphi 解决Delphi indy10下 utf8码转换的问题

Delphi让tedit控件的内容居中或右对齐,限制位数,仅允许输入数字

Delphi unigui获取连接的客户端列表

Delphi edit,memo中禁用ctrl+v

Delphi中实现文件拷贝的三种方法

Delphi 如何确定屏幕分辨率

Delphi 字符串变形替换

Delphi tstringlist 排序 customsort

Delphi中实现调整图像的色阶的算法

Delphi 中的字符串

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



打赏

取消

感谢您的支持,我会继续努力的!

扫码支持
扫码打赏,您说多少就多少

打开支付宝扫一扫,即可进行扫码打赏哦

分享从这里开始,精彩与您同在

评论

管理员已关闭评论功能...

    正在狠努力加载,请稍候...