var
strs: TStrings;
begin
strs := TStringList.Create;
//Delimiter为分隔符，默认为：‘,‘。
strs.Delimiter := ‘!‘;
//DelimitedText就是按Delimiter为分隔符的一个串得到赋值后回把这个字符串按Delimiter的字符添加到TStrings中.
strs.DelimitedText := temp;
end;
原文：https://www.cnblogs.com/js2ja/p/11670529.html