摘要： //单元 {从字符串中提取单词的函数} SysUtils.CharInSet();procedure StrToWordList(str: string; var List: TStringList); var p: PChar; i: Integer; begin if List = nil then List := TStringList.Create; List.Clear... 阅读全文

摘要： 参考这个博客 https://www.cnblogs.com/rogge7/p/6118588.html Delphi判断字符串中是否包含汉字，并返回汉字位置 作者：sunylat 来源：CSDN 原文：https://blog.csdn.net/sunylat/article/details/30 阅读全文