delphi - コンボボックスでの Delphi ComboBox アクセス違反

Question

アクセス違反エラーが発生しますが、コードが正しいことはわかっているので、どこに問題があるのでしょうか? ローカル AccessDB から ComboBox 聖霊降臨祭のデータを入力しようとしています。

var i : integer;
    x : string;
begin
      with DataModule3.ADOTable1 do begin
         if RecordCount > 0 then
           for i := 1 to RecordCount do begin
             RecNo := i;
             x := FieldByName('Teacher').AsString;
             ComboBox1.Items.Add(x);
           end;
       end;
end;

私は多くのことを試しましたが、何も機能しませんでした。入力されたコンボボックスをたくさん試しましたが、テーブル内の行を選択したときだけコンボボックスが値を示し、コンボボックスに必要な行の値を示しました。フィルタリングする...

Answer 1

Access Violation が発生する可能性が最も高いのは、 datamodule をインスタンス化するのを忘れたためですDataModule3。Assigned関数を呼び出してこれを確認します。