简单问题，急！！！

[kuangyulai]

我有个字符串
str:='9787883631460~~无极~~DVD~~故事片'
我怎么把分隔符‘~~’分隔的4个值读出来
先谢谢大家了

[柯本]

procedure TForm1.Button1Click(Sender: TObject);
var
str:string;
ret:TStringList;
begin
str:='9787883631460~~无极~~DVD~~故事片' ;
str:=StringReplace(str,'~~',#13, [rfReplaceAll]);
ret:= TStringList.Create;
ret.Text:=str; //四个值分别在ret.String[0-3]中
ShowMessage(ret.Strings[0]);
ShowMessage(ret.Strings[1]);
ShowMessage(ret.Strings[2]);
ShowMessage(ret.Strings[3]);

end;