delphi 类似split函数功能实现

var
    strs: TStrings;
begin
    strs := TStringList.Create;
    //Delimiter为分隔符，默认为：','。
    strs.Delimiter := '!';
   //DelimitedText就是按Delimiter为分隔符的一个串得到赋值后回把这个字符串按Delimiter的字符添加到TStrings中.
    strs.DelimitedText := temp;
end;