Delphi 从字符串中提取单词的函数


本文整理自网络,侵删。

 
{从字符串中提取单词的函数}
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;

相关阅读 >>

Delphi edit右键系统菜单加自定义菜单项

Delphi中始终用webbrowser打开网页

Delphi ado通用操作数据单元

Delphi 字符串反转函数

Delphi xe 遍历指定数据库,清空各表记录

Delphi 程序窗体最大化、组件居中显示代码

Delphi 文件夹拷贝子文件及文件夹

Delphi 得到指定文件夹内文件名

Delphi 字符串是否包含

Delphi ticon保存ico文件时失真的解决办法

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



打赏

取消

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

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

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

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

评论

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