关于delphi中分隔符的问题

高手们好，我做的一个程序是有客户端和服务器端，客户端从服务器端接收到的数据 AllData:='001,jj,男,24,
2011-11-23 10:20:22',我想用分隔符以逗号的形式分开，结果‘2011-11-23 10:20:22’之间的空格也分开了 我用的是TStringList list3
list3.Delimiter:=',';
list3.DelimitedText:=trim(AllData);
最终结果‘2011-11-23 10:20:22’也分成了两段 怎么样才能不分开 谢谢了

自己使用pos定位
或者，先把空格替换为下划线再分割

用stringreplace替换掉所有空格为指定的一个特殊字符,分离后再把这个特殊字符替换成空格
不过这会出现问题,就是多个空格,最后变成一个空格;

如:
s:='@@XXOO@@';
list3.DelimitedText:=stringreplace(AllData,' ',s,[rfReplaceAll]);
for i:=0 to list3.count-1 do
  showmessage(stringreplace(list3.strings[i],s,' ',[rfReplaceAll]));

不想这样的话,也可以使用pos,copy截取

手工写吧，我一个长度几千的SQL都自己写的。