菜鸟问题，送分的！（关于BDE数据库）(50分)

我建立了一个数据模块dm1，添加了一个table组件"t_banji"。
在其他模块中用下面的代码访问时系统报错，请教各位，
是什么原因呢？嘿嘿，不好意思，真是很菜的问题。
dm1.T_banji.Active :=true;
dm1.T_banji.First ;
if not dm1.T_banji.Eof then
begin
ListBox1.Items.Add(dm1.T_banji.FieldByName('name').AsString);
dm1.T_banji.Next ;
end;

错误提示为：
Project fhy.exe raised exception class EAccessviolation with messsage
'Access violation at address 004BD880 in module fhy.exe',Read of
address 00000060. Process stopped. Use Step or Run to continue.

不是编译出错，是对话框形式显示的错误信息。
谢谢啦！

单元调用没有申明/

出错和上面的代码无关，请检查其它的内容。

这个错误信息应该是你用的某个类没有CREATE就直接用了，你看看是否是这样的

if not dm1.T_banji.Eof then
// while not dm1.T_banji.Eof do
begin
ListBox1.Items.Add(dm1.T_banji.FieldByName('name').AsString);
dm1.T_banji.Next
end;

if not assigned(dm1) then
dm1 := Tdm1.Create(Application);

dm1.T_banji.Active :=true;
dm1.T_banji.First ;
if not dm1.T_banji.Eof then
begin
ListBox1.Items.Add(dm1.T_banji.FieldByName('name').AsString);
dm1.T_banji.Next ;
end;

改
if not dm1.t_
为
while not dm1.T_banji.Eof do
或许出错就不是这里的引起的

接受答案了.