请问delphi中combobox的有关问题

请教delphi中combobox的问题
增加项目
ComboBox1.Items.AddObject('Student', TObject('a'));
ComboBox1.Items.AddObject('pppppp', TObject('b'));
ComboBox1.Items.AddObject('hhhhh', TObject('c'));

写入数据库的时候后，我保存的是 a 和b 

在我读取数据库内容时候 如果是 b

我怎么把这个b值给ComboBox1 显示



这个语句该怎么写

[解决办法]
ComboBox1.ItemIndex:=ComboBox1.Items.IndexOf('pppppp');//'pppppp'为b的值

[解决办法]
这样可以，呵呵

Delphi(Pascal) code

procedure TForm1.FormCreate(Sender: TObject);begin        ss := TStringList.Create;        ss.Add('a');        ss.Add('b');        ss.Add('c');        ComboBox1.AddItem('aaa',TObject(ss.Strings[0]));        ComboBox1.AddItem('bbb',TObject(ss.Strings[1]));        ComboBox1.AddItem('ccc',TObject(ss.Strings[2]));end;procedure TForm1.FormDestroy(Sender: TObject);begin        ss.Destroy;end;procedure TForm1.Button1Click(Sender: TObject);var        mstr: string;begin        mstr := 'b';        ComboBox1.ItemIndex := ComboBox1.Items.IndexOfObject(TObject(ss.Strings[ss.IndexOf(mstr)]));end;
[解决办法]
IndexOfObject