2011 年 6月 28 日随笔档案 - 万一

2011年6月28日

摘要： procedure SplitCommaCross(aList: TStrings); procedure SPlitCross(aList: TStrings); var LList: TStrings; a,b: Integer; i: Integer; begin if Pos('-', aList.Text) 阅读全文

posted @ 2011-06-28 11:18 万一阅读(1694) 评论(1) 推荐(0) 编辑