デルファイコンボボックスAddObjectメソッドのドロップダウンコンボボックスの使用正しい値

我々は、すべてのTComboBox AddObjectメソッドは良いことであることを知っています。

国語コードテーブルは、2つのコードテーブルTComboBoxに格納されたデータ値を必要とする最近設計データベース構造（例えば辞書テーブルとしては、多くが存在する）理由から

 

中国のカイと、これらの値が読み込まれると、データベースは、AddObjectメソッドにも批判クラスを記述しようとする日後に疑いの余地なく明らかに満たされました

ユニットMCCB;
 
インターフェース
 
用途は、StdCtrlsをADODB。
入力
  ター = 配列 の 文字列を、
タイプ
 
  TMycbb = クラス（TObjectを）
 
  公共
      手順 AddItemメソッド（ADOQuery1：TADOQuery; ASQL：文字列 ; CCB：TComboBox; VARのSS：ター）。
 
  エンド;
 
実装
 
{ TMycbb }
 
手順 TMycbb.Additem（ADOQuery1：TADOQuery; ASQL：文字列 ; CCB：TComboBox; VARのSS：ター）。
VAR
  I：整数;
  S：文字列;
ベギン
  ccb.items.clear（）;
  S： = ' BD ' ;
  ccb.items.addobject（' 不確実' 、TObjectの（S））;
  ADOQuery1.close（）;
  ADOQuery1.SQL.Text： = ASQL。
  ADOQuery1.open（）;
 
  setLength（SS、ADOQuery1.RecordCount）。
  用 I：= 0  に ADOQuery1.RecordCount - 1  DO 
  開始
 
 
    SS [I]： = ADOQuery1.Fields [ 0 ] .AsString。
    ccb.Items.AddObject（ADOQuery1.Fields [ 1 ] .AsString、TObjectの（SS [I]））。
    ADOQuery1.Next（）;
  エンド;
  ADOQuery1.close（）;
エンド;
 
終わり。
 

コンボボックスを初期化します

手順TForm1.Button9Click（送信者：TObjectを）;
varがddは：TMycbb。
  SQL文：文字列;
開始
  SQLを： = ' LANGUAGE_CODEから選択LANG_CODE、LANG_NAME ' ;
  DD： = TMycbb。作成します。
 
  試します
    dd.Additem（ADOQuery1、SQL文、ComboBox1の、SS）。
 
  最終的に
    dd.Free;
  以上;
以上 ;

ドロップダウン値を読みます

手順TForm1.Button7Click（送信者：TObjectを）;
VAR A_Value：文字列;
開始
  A_Valueを： = 文字列（ComboBox1.Items.Objects [ComboBox1.ItemIndex]）。
 
    ShowMessage（A_Value）。
エンド;

メインフォームが再びテストSSが正しい読み取りを保証するために、グローバル変数を定義することに留意すべきです

VaRの SS：ター。

CheckMem.pasにはメモリリークをテストしていない後に使いやすいデータベースの辞書テーブルの多くは、読み取りアクセスを減らします。