在P32页的代码:unit mainmenu;interfaceuses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, Menus;type
Tmainmenuform = class(TForm)
MainMenu1: TMainMenu;
N1: TMenuItem;
N2: TMenuItem;
N3: TMenuItem;
N4: TMenuItem;
N5: TMenuItem;
N6: TMenuItem;
N7: TMenuItem;
N8: TMenuItem;
N9: TMenuItem;
N10: TMenuItem;
N11: TMenuItem;
Windows1: TMenuItem;
procedure N2Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;var
mainmenuform: Tmainmenuform;implementation{$R *.dfm}procedure Tmainmenuform.N2Click(Sender: TObject);
begin
luruform:=Tluruform.create(self);
end;end.我的错误为:
[错误] mainmenu.pas(40): Undeclared identifier: 'luruform'
[错误] mainmenu.pas(40): Missing operator or semicolon
[致命错误] studentsinformation.dpr(6): Could not compile used unit 'mainmenu.pas'
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, Menus;type
Tmainmenuform = class(TForm)
MainMenu1: TMainMenu;
N1: TMenuItem;
N2: TMenuItem;
N3: TMenuItem;
N4: TMenuItem;
N5: TMenuItem;
N6: TMenuItem;
N7: TMenuItem;
N8: TMenuItem;
N9: TMenuItem;
N10: TMenuItem;
N11: TMenuItem;
Windows1: TMenuItem;
procedure N2Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;var
mainmenuform: Tmainmenuform;implementation{$R *.dfm}procedure Tmainmenuform.N2Click(Sender: TObject);
begin
luruform:=Tluruform.create(self);
end;end.我的错误为:
[错误] mainmenu.pas(40): Undeclared identifier: 'luruform'
[错误] mainmenu.pas(40): Missing operator or semicolon
[致命错误] studentsinformation.dpr(6): Could not compile used unit 'mainmenu.pas'
解决方案 »
免费领取超大流量手机卡,每月29元包185G流量+100分钟通话, 中国电信官方发货