2013年6月18日
根据某字符(字符串)分割字符串
摘要： varsl: TStringList;str: string;i: Integer;beginstr := 'aa,b b,cc,dd';sl := TStringList.Create;sl.Delimiter := ',';sl.DelimitedText := str;for i := 0 to sl.Count - 1 doShowMessage(sl[i]);sl.Freeend;这样写，对于有空格的字符会有BUG的可以采取下列做法：uses IdStringsvarsl: TStringList;str: string;i: Integer;begi 阅读全文
posted @ 2013-06-18 20:30 Values 阅读(657) 评论(0) 推荐(0)