Простой вопрос, По объявлению процедур в Delphi Опции

[Shmaniche]

На форме компоненты Memo1 и MainMenu, где созданы подпункты TMenuItem.
В учебнике нашел процедуру:

Код

procedure TForm1.Put(Sender: TObject);
begin
Memo1.Text:=Memo1.Text+(Sender as TMenuItem).Caption;
end;

Из-за которой не компилируется проект. Поразмыслил понял, что это самодельная процедура. Ее заголовок я прописал после Private, т.е.:

Код

  private
    { Private declarations }
   procedure TForm1.Put(Sender: TObject);
  public
    { Public declarations }
  end;

Но проект все равно не компилируется. "[Pascal Error] Mainunit.pas(43): E2003 Undeclared identifier: 'TForm1'" . Может не туда добавляю заголовок?


Name формы: Form1.

Может не так добавляю? Када правильно писать заголовки самодельные процедур?

Нашел пример объявления кода:

Код

unit Unit1;

interface

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


type
  TForm1 = class(TForm)
    procedure FormCreate(Sender: TObject);
  private
              procedure HeCoBCemTak(Sender:Tobject);
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.HeCoBCemTak(Sender:Tobject);
begin
  application.MessageBox('CoBceMheTak','HeCoBcemTak',MB_YESNO)
end;

procedure TForm1.FormCreate(Sender: TObject);
begin
Form1.HeCoBCemTak(Form1);
end;

end.

Делаю все также, но не компилируется .

Сообщение отредактировано: Shmaniche - 1.12.2012 9:12

[Shmaniche]

IUnknown
Фрагменты:

Код

type
TAnimal = class(TObject)
private
  { Private declarations }
  Kind: string;

public
  { Public declarations }

  constructor Create;
  function GetKind: string; virtual;
  function Voice: string; virtual;
  function Eat: string; virtual;
....
{там есть еще виртуальные функции-методы для пород собак}
  end;

Код

TDog = class(TAnimal)
public
  constructor Create;
  function GetKind: string; override;
  function Voice: string; override;                                  
  function Eat: string; override
end;

Код

TCat = class(TAnimal)
public
  constructor Create;
  function GetKind: string; override;
  function Voice: string; override;                                    
  function Eat: string; override;
end;

Код

TSheepDog = class(TAnimal)
public
  constructor Create;
  function GetRace: string; override;
  function Stature: string; override;
  function LengthHair: string; override;
  function LengthEar: string; override;
  function LengthInfluence: string; override;
end;

И все таком духе.


Сообщение отредактировано: Shmaniche - 8.12.2012 20:46