delphi 按固定格式截取字符


我有这么一个字符串“aaaa/bbbbbbbb/ccccccccc/ddddddddddd/....../nnnnnnnn”不知如何才能实现截取出“/”后的字符。如上述字符串截取成
aaaa
bbbbbbbb
ccccccccc
。。。。。。


急用啊。希望写的稍微详细点。谢谢

[解决办法]
var dd:boolean;
stl:tstrings;
str:string;
dd:=false;
stl:=tliststring.create;
for not dd do
begin
if pos('/',str)<>0 then
begin
dd:=false;
stl:=copy(str,1,pos('/',str)-1);
str:=copy(str,pos('/',str),legnt(str)-pos('/',str)-1);
end else
dd:=true;
end;


用的时候在stl[]去取