字符串分割扩展 SplitEx

　　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;