摘要： 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 阅读全文