Показать сообщение отдельно
  #4  
Старый 05.08.2009, 13:35
lmikle lmikle вне форума
Модератор
 
Регистрация: 17.04.2008
Сообщения: 8,088
Версия Delphi: 7, XE3, 10.2
Репутация: 49089
По умолчанию

О, Господи!!! Естественно, компилятор дает тебе ошибки. Кто же пишет реализацию метода в описании класса? Это тебе не С++ и inline-методами... Поменяй вот так:

Код:
unit uMain;

interface

uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, uchild;

type
TfrMain = class(TForm)
private
{ Private declarations }
  procedure CreateChildForm(const childName : string);
public
{ Public declarations }
end;

var
frMain: TfrMain;

implementation

{$R *.dfm}

procedure TfrMain.CreateChildForm(const childName : string);
var
  Child: TfrChild;
begin
  Child := TfrChild.Create(Application);
  Child.Caption := childName;
end;

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