delphi ComboBox AddObject 正确使用方法

最近写了一个类来实现ComboBox下拉取值已减少数据库访问次数

大家都知道AddObject可以这样填充值

var s,s1,s2: string;
begin
  s := 'you ';
  Combobox1.items.AddObject('你 ', Tobject(s));
  s1 := 'me ';
  Combobox1.items.AddObject('我 ', Tobject(s));
  s2 := 'he ';
  Combobox1.items.AddObject('他 ', Tobject(s));

但当 值从数据库读取或变量组合赋值 就会造成 读取Combobox1值时 乱码或内存异常  所以自己写了一个类 采用字符串数组来赋值

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 );  //ss必须是传地址参数

  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.

测试主窗体赋值操作

var ss: Tarr;  //必须是全局变量  需引用uses MyCcb

..........
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;
    ComboBox1.ItemIndex :=0;
  end;
end;

读取操作

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

    ShowMessage(A_Value);
end;

这样实现了从数据库读取字典表 添加commobox了 经测试 无内存泄露