Delphi 组合框上的组合框访问冲突

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;

我已经尝试了很多东西但没有任何效果，我已经尝试了很多输入的组合框但仍然不起作用唯一一次组合框显示值是当我在 table 中选择一行然后它显示在组合框中，我需要过滤的行值...

Answer 1

出现访问冲突很可能是因为您忘记了实例化数据模块 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;

Delphi 组合框上的组合框访问冲突

Delphi ComboBox Access violation on combobox

delphi

ms-access

combobox

tadotable