콤보박스(TComboBox)에 한번 입력한 값 Items에 추가

  TComboBox에 성명 등의 값을 입력하고  DB에서 자료를 조회할때  조회한 성명을 콤보박스(TComboBox)에 추가한다.

  TComboBox는 조회 이력을 관리하는 용도로 사용하면 TEdit보다 편리하다.

 

  이미 조회했던 값이면 인덱스를 찾아 맨 처음 0으로 이동하고

  최초 조회한 값이면 인덱스 0으로 삽입한다.

 

  // 다음 코딩은  쿼리를 오픈한 후에 사용하면 된다.

  if (cbGbnValue.Text <> '') and (ADOQuery1.RecordCount > 0) then        // 조회결과가 있을 때 TComboBox에 조회한 값 Items에 추가
  begin
    if cbGbnValue.Items.IndexOf(cbGbnValue.Text) >=0 then  //기존 Item이면 0으로 이동
      cbGbnValue.Items.Move(cbGbnValue.Items.IndexOf(cbGbnValue.Text), 0)
    else                                                   // 신규 Item이면 0번째 삽입
      cbGbnValue.Items.Insert(0, cbGbnValue.Text);

    cbGbnValue.ItemIndex := 0;      // 인덱스 변화시 -1로 바뀌어 .Text 속성이 초기화되어서
   //cbGbnValue.SelectAll;
  end;