代码如下:
program gzglxt;
uses Forms, main in 'main.pas' {Main_Form},
login in 'login.pas' {Login_Form},
usergl in 'usergl.pas' {usergl_Form},
password in 'password.pas' {password_Form},
yggl in 'yggl.pas' {yggl_Form},
ygxx in 'ygxx.pas' {ygxx_Form}, setzw in 'setzw.pas' {setzw_Form},
setzc in 'setzc.pas' {setzc_Form},
setother in 'setother.pas' {setother_Form},
addgzb in 'addgzb.pas' {addgzb_Form},
gzgl in 'gzgl.pas' {gzgl_Form},
modigz in 'modigz.pas' {modigz_Form},
gztj in 'gztj.pas' {gztj_form},
{$R *.res}
begin Application.Initialize;
Application.CreateForm(Tlogin_Form,login_Form);
login_Form.ShowModal;
//判断是否通过系统验证
if login_Form.loginok then
begin
login_Form.Free;
Application.CreateForm(TMainForm,MainForm);
Application.Run;
end
else
Application.Terminate;
end.
[Error] gzglxt.dpr(20): Identifier expected but 'BEGIN' found
[Error] gzglxt.dpr(21): Undeclared identifier: 'Application'
[Error] gzglxt.dpr(21): Missing operator or semicolon
[Error] gzglxt.dpr(22): Missing operator or semicolon
[Error] gzglxt.dpr(22): Undeclared identifier: 'Tlogin_Form'
[Error] gzglxt.dpr(22): Undeclared identifier: 'login_Form'
[Error] gzglxt.dpr(23): Missing operator or semicolon
[Error] gzglxt.dpr(25): 'THEN' expected but identifier 'loginok' found
[Error] gzglxt.dpr(27): Missing operator or semicolon
[Error] gzglxt.dpr(28): Missing operator or semicolon
[Error] gzglxt.dpr(28): Undeclared identifier: 'TMainForm'
[Error] gzglxt.dpr(29): Missing operator or semicolon
[Error] gzglxt.dpr(32): Missing operator or semicolon