字符串分割扩展 SplitEx[Delphi]

最新推荐文章于 2024-08-07 19:10:01 发布

D_Q

最新推荐文章于 2024-08-07 19:10:01 发布

阅读量1.6k

点赞数

分类专栏：字符串应用文章标签： delphi 扩展 duplicates function integer string

本文链接：https://blog.youkuaiyun.com/D_Q/article/details/99870

版权

字符串应用专栏收录该内容

0 篇文章

订阅专栏

Didi.04-9-10 教师节

function SplitEx(const Str {需要拆分的文章}, Delimiters {拆分关键字,回车.?!等}: string): TStringList;
var
  ss: WideString;
  i, St: integer;
  function IsDelimiter(const Delimiters, c: string): Boolean;
  begin //判断是否为拆分关键字
    result := StrScan(PChar(Delimiters), c[1]) <> nil;
  end;
begin
  Result := TStringList.Create;
  with Result do
  begin
    Clear; Sorted := True; Duplicates := dupIgnore;
  end;
  if Length(Str) < 1 then exit;
  ss := Str; //双字符支持，纯英文可以去掉
  St := -1;
  for i := 1 to Length(ss) do
    if IsDelimiter(Delimiters, ss[i]) then
      if St <> -1 then
      begin
        Result.Add(Trim(Copy(ss, St, i - St)));
        St := -1;
      end
      else
        if St = -1 then St := i;
  if St <> -1 then Result.Add(Copy(ss, St, Length(Str)));
end;

//操作演示
with SplitEx(Memo1.Text, '，,. ?!	' + #13#10) do
  try
    SaveToFile('c:/temp_demo.txt');
  finally
    Free;
  end;