程序師世界是廣大編程愛好者互助、分享、學習的平台,程序師世界有你更精彩!
首頁
編程語言
C語言|JAVA編程
Python編程
網頁編程
ASP編程|PHP編程
JSP編程
數據庫知識
MYSQL數據庫|SqlServer數據庫
Oracle數據庫|DB2數據庫
 程式師世界 >> 編程語言 >> 更多編程語言 >> 編程綜合問答 >> delphi 7-Delphi 求高手幫代碼改正

delphi 7-Delphi 求高手幫代碼改正

編輯:編程綜合問答
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 '....\Delphi\Unit8_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},
哈哈,最後一句,後面應該是分號

  1. 上一頁:
  2. 下一頁:
Copyright © 程式師世界 All Rights Reserved