从listbox中截取字符串问题(100)

listbox存放的数据格式为1000-20090101001-aaabbbccc1000-20090101001-aab-ccc如何将以上数据截取存放到另三个listbox中:listbox1 listbox2 listbox31000 20090101001 aaabbbccc1000 20090101001 aab-ccc

var si,si1:integer; ss:shortstring;begin for si:=0 to listbox.items.count-1 do begin ss:=listbox.items[si]; si1:=pos('-',ss); if si1=0 then continue; listbox1.items.add(copy(ss,1,si1-1)); ss:=copy(ss,si1+1,255); si1:=pos('-',ss); listbox2.items.add(copy(ss,1,si1-1)); ss:=copy(ss,si1+1,255); listbox3.items.add(ss); end;end;

同意楼上。

恩 主要就是copy pos 这两个字符函数~

接受答案了，谢谢foam