
05.08.2009, 13:22
|
Прохожий
|
|
Регистрация: 24.02.2009
Сообщения: 48
Репутация: 10
|
|
вот код моих файлов:
uMain.pas
Цитата:
unit uMain;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, uchild;
type
TfrMain = class(TForm)
private
{ Private declarations }
procedure TfrMain.CreateChildForm(const childName : string);
var
Child: TfrChild;
begin
Child := TfrChild.Create(Application);
Child.Caption := childName;
end;
public
{ Public declarations }
end;
var
frMain: TfrMain;
implementation
{$R *.dfm}
end.
|
uchild.pas
Цитата:
unit uchild;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs;
type
TfrChild = class(TForm)
private
{ Private declarations }
public
{ Public declarations }
end;
var
frChild: TfrChild;
implementation
{$R *.dfm}
end.
|
ошибки
Цитата:
[Error] uMain.pas(13): Undeclared identifier: 'TfrMain'
[Error] uMain.pas(13): 'END' expected but 'CONST' found
[Error] uMain.pas(13): '=' expected but ')' found
[Error] uMain.pas(16): Statements not allowed in interface part
[Error] uMain.pas(20): Declaration expected but identifier 'public' found
[Error] uMain.pas(22): 'IMPLEMENTATION' expected but ';' found
[Error] uMain.pas(27): '.' expected but 'IMPLEMENTATION' found
[Hint] uMain.pas(13): Private symbol 'TfrMain' declared but never used
[Fatal Error] Project1.dpr(6): Could not compile used unit 'uMain.pas'
|
|