The program Project1.

USES the
Forms,
Unit1 in 'Unit1. Pas' {flogin},
Unit2 in 'Unit2. Pas' {DM: TDataModule},
Unit3 in 'Unit3. Pas' {fmian},
Unit4 in 'Unit4. Pas' {fpass},
Unit5 in 'Unit5. Pas' {adduser},


{$R *. Res}

The begin
Application. The Initialize;
Application CreateForm (Tflogin flogin);
Application CreateForm (TDM, DM);
Application CreateForm (Tfmian fmian);
Application CreateForm (Tfpass fpass);
Application CreateForm (Tadduser adduser);
Application. The Run;
end.

CodePudding user response:

When you are debugging or build, it is not a mistake here, just be included in this, you should see what your main window prompts or your reference unit prompt error in where, instead of looking for the begin of the error, because you are running is contained inside this begin

CodePudding user response:

Unit5 here in 'Unit5. Pas' {adduser},
The comma to a semicolon
Unit5 in 'Unit5. Pas' {adduser};

CodePudding user response:

Before the Begin of the statement is not an end, but rather in the first of the end times, "" instead of";" ,

 
The program Project1. 

USES the 
Forms, 
Unit1 in 'Unit1. Pas' {flogin}, 
Unit2 in 'Unit2. Pas' {DM: TDataModule}, 
Unit3 in 'Unit3. Pas' {fmian}, 
Unit4 in 'Unit4. Pas' {fpass}, 
Unit5 in 'Unit5. Pas' {adduser}; 

{$R *. Res} 

The begin 
Application. The Initialize; 
Application CreateForm (Tflogin flogin); 
Application CreateForm (TDM, DM); 
Application CreateForm (Tfmian fmian); 
Application CreateForm (Tfpass fpass); 
Application CreateForm (Tadduser adduser); 
Application. The Run; 
End. 

CodePudding user response:

Before the Begin of the statement is not an end, but rather in other 9 results tail ", "instead of";" .