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;