请教delphi中combobox的问题

Question

增加项目
ComboBox1.Items.AddObject('Student', TObject('a'));
ComboBox1.Items.AddObject('pppppp', TObject('b'));
ComboBox1.Items.AddObject('hhhhh', TObject('c'));写入数据库的时候后，我保存的是 a 和b 在我读取数据库内容时候 如果是 b我怎么把这个b值给ComboBox1 显示这个语句该怎么写

Answer 1

ComboBox1.ItemIndex:=ComboBox1.Items.IndexOf('pppppp');//'pppppp'为b的值

Answer 2

这样可以，呵呵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;