strtoint 很奇怪!
篮球用品>>0
日用品>>1
生活用品>>1
ComboBox 里面是这样的数据 然后我为了判断>>后面的值是否大于0 也就是 他的子类所以需要取出来 所以做了如下处理
procedure TForm1.bsSkinComboBox2Change(Sender: TObject);beginif (strtoint(copy(bsSkinComboBox2.Text,AnsiPos('>>',bsSkinComboBox2.Text)+2,length(bsSkinComboBox2.Text)-AnsiPos('>>',bsSkinComboBox2.Text)))>0)thenshowmessage('大于0!');end;