объявление процедуры

[AIst]

При нажатии на кнопку должен выполняться определенный код, его я вынес в процедуру, чтоб не писать по несколько раз одно и тоже...

unit Unit1;

interface

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

type
  TForm1 = class(TForm)
    MainMenu1: TMainMenu;
    N1: TMenuItem;
    N2: TMenuItem;
    N3: TMenuItem;
    N4: TMenuItem;
    N5: TMenuItem;
    About1: TMenuItem;
    N6: TMenuItem;
    About2: TMenuItem;
    procedure save;
    procedure N4Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure save;
var a:TextFile;
begin
assignfile(a,'C:\Documents and Settings\save.txt');
rewrite(a);
writeln(a,'aaa');
writeln(a,'bbb');
Closefile(a);
end;

procedure TForm1.N4Click(Sender: TObject);
begin
save;
end;

end.

Проект не запускается. вылетают следующие ошибки:

[Ошибка] Unit1.pas(20): Unsatisfied forward or external declaration: 'TForm1.save'
[Фатальная ошибка] Project1.dpr(5): Could not compile used unit 'Unit1.pas'

как в моем случае будет правильно объявить процедуру?

[Google[Bot]]

Вместо

procedure save;
var a:TextFile;
begin

Надо писать

procedure TForm1.save;
var a:TextFile;
begin

Оно ж и ругается, мол, обьявление есть, а тела нету...

[AIst]

Спасибо большое, теперь работает...

Надо писать
Код:

procedure TForm1.save;
var a:TextFile;
begin

а если эта кнопка будет находиться на панели Panel1 то писать нужно будет Panel1.save ?

[mihali4]

В вашем случае можно сделать проще - полностью описать обработчик в procedure TForm1.N4Click(Sender: TObject); , а когда он понадобится, вызывать его как N4Click(Self);
Если этот же обработчик нужно назначить другим пунктам меню, в инспекторе объектов против OnClick этого другого пункта выбираете (из комбобокса) N4Click...

[Google[Bot]]

Сообщение от AIst

а если эта кнопка будет находиться на панели Panel1 то писать нужно будет Panel1.save ?

Нет, надо писать N4.Click; или просто save;