program Classbook;uses
Forms,
Database in 'Database.pas' {datab: TDataModule},
Connection in 'Connection.pas' {conn_F},
Mainform in 'Mainform.pas' {main_f},
Login in 'module\login\Login.pas' {login_f},
register in 'module\login\register.pas' {register_f},
Inputinformation_t in 'module\input_teacher\Inputinformation_t.pas' {input_f_t},
Inputinformation_s in 'module\input_student\Inputinformation_s.pas' {input_f_s},
create_class in 'module\create\create_class.pas' {create_f},
password in 'subform\password.pas' {password_f},
picturefull in 'subform\picturefull.pas' {picfull_f},
Query in 'module\Query\Query.pas' {Query_F};{$R *.res}begin
Application.Initialize;
Application.MainFormOnTaskbar := True;
Application.Title := '毕业同学纪念册';
Application.CreateForm(Tdatab, datab);
Application.CreateForm(Tmain_f, main_f);
Application.CreateForm(Tinput_f_t, input_f_t);
Application.CreateForm(Tinput_f_s, input_f_s);
Application.CreateForm(Tinput_f_s, input_f_s);
Application.CreateForm(Tcreate_f, create_f);
Application.CreateForm(Tpassword_f, password_f);
Application.CreateForm(Tpassword_f, password_f);
Application.CreateForm(Tpicfull_f, picfull_f);
Application.CreateForm(Tpicfull_f, picfull_f);
Application.CreateForm(TQuery_F, Query_F);
application.ShowMainForm:=false;
Application.CreateForm(Tlogin_f, login_f);
login_f.show;
Application.CreateForm(Tregister_f, register_f);
Application.CreateForm(Tconn_F, conn_F);
Application.Run;
end.
开始程序后显示正常(login_f窗体)~当我关闭程序(不做任何操作直接关闭)就会出现内存地址错误~~
不知道哪里有错~~~请问下可能哪个环节出错了?
Forms,
Database in 'Database.pas' {datab: TDataModule},
Connection in 'Connection.pas' {conn_F},
Mainform in 'Mainform.pas' {main_f},
Login in 'module\login\Login.pas' {login_f},
register in 'module\login\register.pas' {register_f},
Inputinformation_t in 'module\input_teacher\Inputinformation_t.pas' {input_f_t},
Inputinformation_s in 'module\input_student\Inputinformation_s.pas' {input_f_s},
create_class in 'module\create\create_class.pas' {create_f},
password in 'subform\password.pas' {password_f},
picturefull in 'subform\picturefull.pas' {picfull_f},
Query in 'module\Query\Query.pas' {Query_F};{$R *.res}begin
Application.Initialize;
Application.MainFormOnTaskbar := True;
Application.Title := '毕业同学纪念册';
Application.CreateForm(Tdatab, datab);
Application.CreateForm(Tmain_f, main_f);
Application.CreateForm(Tinput_f_t, input_f_t);
Application.CreateForm(Tinput_f_s, input_f_s);
Application.CreateForm(Tinput_f_s, input_f_s);
Application.CreateForm(Tcreate_f, create_f);
Application.CreateForm(Tpassword_f, password_f);
Application.CreateForm(Tpassword_f, password_f);
Application.CreateForm(Tpicfull_f, picfull_f);
Application.CreateForm(Tpicfull_f, picfull_f);
Application.CreateForm(TQuery_F, Query_F);
application.ShowMainForm:=false;
Application.CreateForm(Tlogin_f, login_f);
login_f.show;
Application.CreateForm(Tregister_f, register_f);
Application.CreateForm(Tconn_F, conn_F);
Application.Run;
end.
开始程序后显示正常(login_f窗体)~当我关闭程序(不做任何操作直接关闭)就会出现内存地址错误~~
不知道哪里有错~~~请问下可能哪个环节出错了?
有精力的话自己调试一下吧……