问题描述

Delphi 求高手帮代码改正

program Project1;

uses
Forms,
PMain in 'PMain.pas' {FMain},
PStudent in 'PStudent.pas' {FStudent},
DataMdl in 'DataMdl.pas' {DataMdlSystem: TDataModule},
PCourse in 'PCourse.pas' {FCourse},
PCourseAdd in 'PCourseAdd.pas' {FCourseAdd},
PGrade in 'PGrade.pas' {FGrade},
PLoad in 'PLoad.pas' {FLoad},
PSelectCourse in 'PSelectCourse.pas' {FSelectCourse},
PGradeAdd in 'PGradeAdd.pas' {FGradeAdd},
PCourseEdit in 'PCourseEdit.pas' {FCourseEdit},
PUserRight in 'PUserRight.pas' {FUserRight},
PShare in 'PShare.pas',
PUser in 'PUser.pas' {FUser},
PRole in 'PRole.pas' {FRole},
PFunction in 'PFunction.pas' {FFunction},
PChangePSW in 'PChangePSW.pas' {FChangePSW},
PTeacher in 'PTeacher.pas' {FTeacher},
PIndividualInfo in 'PIndividualInfo.pas' {FIndividual},
//Unit8_ex2 in '....DelphiUnit8_ex2.pas' {Form1};

{$R *.res}

begin
Application.Initialize;
Application.Title := '学生宿舍管理系统';
Application.CreateForm(TDataMdlSystem, DataMdlSystem);
Application.CreateForm(TFMain,FMain);
//Application.CreateForm(TFStudent,FStudent);
Application.Run;
end.

提示Identifier expected but 'BEGIN' found 错误，这个怎么改

解决方案

你要把整个文档贴上来.
PIndividualInfo in 'PIndividualInfo.pas' {FIndividual},
哈哈，最后一句，后面应该是分号

解决方案二：

你要把整个文档贴上来