{从字符串中提取单词的函数} procedure StrToWordList(str: string; var List: TStringList); var p: PChar; i: Integer; begin if List = nil then List := TStringList.Create; List.Clear; {去除重复} List.Sorted := True; List.Duplicates := dupIgnore; p := PChar(str); {把单词以外的字符转为空格, 并把大写字母转小写} while p^ <> #0 do begin case p^ of 'A'..'Z': p^ := Chr(Ord(p^) + 32); 'a'..'z', '0'..'9', '''', '-': ; else p^ := #32; end; Inc(p); end; {用空格分离单词到列表} List.Delimiter := #32; List.DelimitedText := str; {单词的开头应该是字母, 去除其他} for i := List.Count - 1 downto 0 do begin if CharInSet(List[i][1], ['0'..'9', '-', '''']) then List.Delete(i); end; end; {从字符串中提取汉字的函数} 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;
【推荐】编程新体验,更懂你的AI,立即体验豆包MarsCode编程助手
【推荐】凌霞软件回馈社区,博客园 & 1Panel & Halo 联合会员上线
【推荐】抖音旗下AI助手豆包,你的智能百科全书,全免费不限次数
【推荐】博客园社区专享云产品让利特惠,阿里云新客6.5折上折
【推荐】轻量又高性能的 SSH 工具 IShell:AI 加持,快人一步