为什么我的combobox会报错?
for m:=0 to self.ComponentCount-1 do
if self.Components[m].ClassName='TComboBox' then begin
CB := TComboBox(Self.Components[i]);
for j:=0 to adoquery.FieldCount-1 do begin
if trim(adoquery.Fields.Fields[j].DisplayName)='学校' then
cb.ItemIndex:=cb.Items.IndexOfName(adoquery.Fields.Fields[j].DisplayName);
end;
end;
运行到第六行时总说访问了非法内存地址,试了一下问题出在cb.Items.IndexOfName上,不让访问,但为什么呢?如何解决?