《Delphi基础教程》代码错误求助
在P32页的代码:
unit mainmenu;
interface
uses
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 '
[解决办法]
需要引用定义 Tluruform 这个窗体类的单元。