s := hehe~xixi~wawa

FUnPackList ：＝ TStringList.Create;

FUnPackList.Delimiter := '~';
FUnpackList.DelimitedText := s;

这样就可以把字符串hehe,xixi,wawa存到

FUnpackList中了，呵呵，挺不错的。