//根据字符串，拆分字符串，相当于vb中的split函数 function SplitString(const Source,ch:string):TStringList; var temp:String; i:Integer; begin Result:=TStringList.Create; //如果是空自符串则返回空列表 if Source='''''''' then exit; temp:=Source; i:=pos(ch,Source); while i<>0 do begin Result.add(copy(temp,0,i-1)); Delete(temp,1,i); i:=pos(ch,temp); end; Result.add(temp); end;
注：本站部分文章源于互联网，版权归原作者所有！如有侵权，请原作者与本站联系，本站将立即删除！ 本站文章除特别注明外均可转载，但需注明出处！ [MinTao学以致用网] 
