将固定字符分隔的内容转换为数组
摘要：
1functionSplit(constSource,ch:string):TStringList;2var3Temp:string;4I:Integer;5chLength:Integer;6tmpStr:string;7begin8Result:=TStringList.Create;9//如果是空自符串则返回空列表10ifSource=''thenExit;11Temp:=Source;12I:=Pos(ch,Source);13chLength:=Length(ch);14whileI<>0do15begin16tmpStr:=Copy(Temp,0,I-c 阅读全文
posted @ 2011-05-10 09:57 龙少爷 阅读(220) 评论(0) 推荐(0) 编辑
