處理Delimeters 不一定是一個字元的狀況 且處理最後一個也是Delimeters 的情形    use StrUtils;    

function MultiSplit(const Str, Delimiters: string): TStrings;
var
  ss: WideString;
  St1, St2: integer;
begin
  Result := TStringList.Create;
  St1:=1;
  St2:=PosEx(Delimiters, Str, St1);
  While (St2>0) do
  begin
    if (St2>St1) and (St21) and (St1    沒有仔細找過站內是否有相同內容發表過的
如有重覆 敬請見諒     ＠瞭解越多.懂得越少＠
        

好像無法正確分割？ 希望能 '12/12/12/12/12' 取出 12 12 12 12 12 不知道是否能做到？

分高效低效2種,實際使用差別不大,但第2種較直觀

[code delphi]

function MultiSpilt(str,substr:string):tstrings;
var
i,sl,k,ssl:integer;
begin
result:=tstringlist.create;
i:=0;
sl:=length(str)-1;
k:=0;
ssl:=length(substr);
while i if k=ssl then begin
result.add(copy(str,1,i-k));
delete(str,1,i-k ssl);
dec(sl,i-k ssl);
i:=0;
k:=0;
end;
if str[i 1]=substr[1 k] then inc(k) else if k>0 then k:=0;
inc(i);
end;
result.add(str);
end;
function MultiSpiltB(str,substr:string):tstrings; // MultiSpiltB(' A%B,C{}AX','{}') A%B,C{}AX=A_%B,C{}AX=A_%B:%C{}AX=A_%B:%C,AX
var
i:integer;
begin
result:=tstringlist.create;
result.CommaText:=
StringReplace(
StringReplace(
StringReplace(str,'%','_%',[rfReplaceAll])
,',',':%',[rfReplaceAll]
)
,substr,',',[rfReplaceAll]
);
for i := 0 to result.Count-1 do begin
result[i]:=StringReplace(
StringReplace(result[i],':%',',',[rfReplaceAll])
,'_%','%',[rfReplaceAll]
);
end;
end;

[/code]