delphi - Delphi ComboBox 对组合框的访问冲突

Question

我收到访问冲突错误，但我知道代码是正确的，那么问题可能出在哪里？我正在尝试从本地 AccessDB 填充 ComboBox whit 数据。

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函数来验证这一点。

Answer 2

begin
    with DataModule3.ADOTable1 do 
        if Active then
            while not Eof do
                begin
                    ComboBox1.Items.Add(FieldByName('Teacher').AsString);
                    Next;
                end;
end;