Question

delphi7有关table运行程序出现错误，怎么修改啊，table怎么定义啊，在哪部分定义呢？谢谢你哦！

procedure TOperatorForm.FormActivate(Sender: TObject);
begin
Edit1.Text:='';
Edit2.Text:='';
Edit3.Text:='';
Edit4.Text:='';
Edit4.ReadOnly:=True;
Edit4.TabStop:=False;
CheckBox1.Checked:=False;
CheckBox2.Checked:=False;
CheckBox3.Checked:=False;
Edit4.Text:=Datetostr(Date());
Table1:=TTable1.Create(self); [Error] Undeclared identifier: 'Table1'
Table1.DatabaseName:='rsgl'; [Error] Missing operator or semicolon
Table1.TableName:='operator.db'; [Error] Missing operator or semicolon
Table1.Open; [Error] Missing operator or semicolon
if not EOF then
LoadFormTable; [Error] Undeclared identifier: 'LoadFormTable'
Table1.Close;
RadioButton2.Checked:=True;
end;

Answer 1

LoadFormTable这是个过程吧，你怎么定义的？

追问

上次给你留了联系方式，结果知道给屏蔽了，我给你发私信了，你帮我看看程序啊！谢谢了！
我是参照一本书里的例子，学习下数据库应用的，按照例子编完程序后运行就出错了，对于table，里面没有给出定义，而且只是之前做了一个.db的表，编程就直接用table了,窗体中也没有用table组件,对于它的定义,我不会啊

第一行和第二行之间加个var Table1:TTable;

追答

首先在引用里面添加 DBTables；
其次，不应该用FormActivate事件吧，这个事件是每次激活窗体都会执行的；我觉得你应该用FormCreate事件；
最后，这样初始化
procedure TForm1.FormCreate(Sender: TObject);
var
table1:TTable;
begin
table1:=TTable.Create(Self);
end;

追问

我想问下一个工程文件，多个form窗体组成的程序用不用相互引用啊，因为在别的unit里也用到了table，又出现同样的错误。

追答

如果其他窗体引用，则table变量放在窗体类里面定义public，其他窗体需要引用这个单元

追问

按照上面的方法还是不行，真是郁闷啊！

追答

你table在哪定义的，又在哪里使用的？描述清楚

追问

public
{ Public declarations }
end;
var
OperatorForm: TOperatorForm;
Table1:TTable;
这样似乎不行，我试了很多地方定义都不行，我想问下这个程序要读取DBtable，这个需要建立连接吗，还有这个DBtable是存放在workdir中的。

追答

LoadFormTable这个是什么东西？应该是一个过程吧？你定义了吗？

追问

没有定义，怎么定义啊，

追答

LoadFormTable你写这个想干什么？

追问

我也是自学没多久，有些代码也不懂，只是大概的能看懂。谢谢你能解答这么多，没有程序，再追问也没意义，还是谢谢你！

Answer 2

定义为全局变量就行了。
Table1:TTable;

追问

这样不行的