unit Mccb;
 
interface
 
uses adodb, StdCtrls;
type
  Tarr = array of string;
type
 
  TMycbb = class(Tobject)
 
  public
      procedure Additem(ADOQuery1: TADOQuery;Asql:string; ccb: TComboBox;var ss:Tarr );
 
  end;
 
implementation
 
{ TMycbb }
 
procedure TMycbb.Additem(ADOQuery1: TADOQuery;Asql:string; ccb: TComboBox;var ss:Tarr);
var
  i: Integer;
  s: string;
begin
  ccb.items.clear();
  s := ‘bd‘;
  ccb.items.addobject(‘不定‘, Tobject(s));
  ADOQuery1.close();
  ADOQuery1.SQL.Text :=Asql;
  ADOQuery1.open();
 
  SetLength(ss, ADOQuery1.RecordCount);
  for i := 0 to ADOQuery1.RecordCount - 1 do
  begin
 
 
    ss[i] := ADOQuery1.Fields[0].AsString;
    ccb.Items.AddObject(ADOQuery1.Fields[1].AsString, TObject(ss[i]));
    ADOQuery1.Next();
  end;
  ADOQuery1.close();
end;
 
end.
 

procedure TForm1.Button9Click(Sender: TObject);
var dd: TMycbb;
  sqls: string;
begin
  sqls := ‘select  lang_code,lang_name from  language_code‘;
  dd := TMycbb.Create;
 
  try
    dd.Additem(ADOQuery1, sqls, ComboBox1, ss);
 
  finally
    dd.Free;
  end;
end;

procedure TForm1.Button7Click(Sender: TObject);
var A_Value: string;
begin
  A_Value := string(ComboBox1.Items.Objects[ComboBox1.ItemIndex]);
 
    ShowMessage(A_Value);
end;

var ss: Tarr;