Показать сообщение отдельно
  #3  
Старый 05.08.2009, 13:22
Darken Darken вне форума
Прохожий
 
Регистрация: 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'

Ответить с цитированием