2011年8月24日
Delphi字符串分按符号分割
摘要： 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... 阅读全文
posted @ 2011-08-24 17:11 还是你最好 阅读(1399) 评论(0) 推荐(0)