delphi7有关table运行程序出现错误,怎么修改啊,table怎么定义啊,在哪部分定义呢?procedure TOperatorForm.FormActivate(Sender:TObject);beginEdit1.Text:='';Edit2.Text:='';Edit3.Text:='';Edit4.Text:='';Edit4.ReadOnly:=True;Edit4.Tab

来源：学生作业帮助网编辑：作业帮时间：2024/04/28 00:34:03

delphi7有关table运行程序出现错误,怎么修改啊,table怎么定义啊,在哪部分定义呢?procedure TOperatorForm.FormActivate(Sender:TObject);beginEdit1.Text:='';Edit2.Text:='';Edit3.Text:='';Edit4.Text:='';Edit4.ReadOnly:=True;Edit4.Tab
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;