摘要:
function split(src,dec : string):TStringList;var i : integer; str : string;begin result := TStringList.Create; repeat i := pos(dec,src); str := copy(src,1,i-1); if (str='') and (i>0) then begin delete(src,1,length(dec)); continue; end; if i>0th... 阅读全文