раздел interface .

[vedro-compota]

Кто подскажет - почему в разделе interface необходимо указывать заголовки всех процедур , используемых в модуле, а заголовки функций указывать не обязательно? Или это просто особенность языка такая.....языка делфи....
(заранее благодарю за ответ)

[Serge_Bliznykov]

почему в разделе interface необходимо указывать заголовки всех процедур , используемых в модуле, а заголовки функций указывать не обязательно?

глупости. в разделе interface unit'а (модуля) нужно указывать заголовки тех процедур и функций, которые допускается вызывать из других модулей. Те процедуры и функции, которые не описаны в разделе interface допустимо использовать только внутри данного модуля(их нельзя вызвать "извне").

[vedro-compota]

но если заголовок процедуры ( обработчик события по нажатию на кнопку формы) не поместить в раздел interface, то она вообще работать не будет....
Вот пример выложу ( там модуль есть модуль unit1 в нём, я убрал из интерфейса button2click )
посмотрите )

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, Grids, func , extraproc ;

type
  TForm1 = class(TForm)
    StringGrid1: TStringGrid;
    Edit1: TEdit;
    Button1: TButton;
    Label1: TLabel;
    Button2: TButton;
    Label2: TLabel;
    Label3: TLabel;
    Edit2: TEdit;
    Label4: TLabel;
    Label5: TLabel;
    procedure StringGrid1KeyPress(Sender: TObject; var Key: Char);
 // ВОТ ЕЁ, Серж -   procedure Button2Click(Sender: TObject);
    //procedure Edit1KeyPress(Sender: TObject; var Key: Char);
    //procedure FormKeyPress(Sender: TObject; var Key: Char);
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;
{type
  pelement= ^telement;
  Telement= record
             infa: integer;
             ukazatel:pelement;
            end;  }

var    o,z: integer; // глобальная переменная "о"
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
begin
stringgrid1.ColCount:=strtoint(edit1.text);
end;{
function fg ( r: pelement ; b:integer):integer; //рекурсивная функция
begin
  if (r=nil)  then begin Result:=0; end;  // условие выхода из рекурсии ( результат преобретает конкретное значение)
  if (r<>nil) and (b=r^.infa) then
  begin
    o:=o+1;
    Result:=1+fg(r^.ukazatel,b);
  end;
  if (r<>nil) and (b<>r^.infa) then  // если значение очередного элемента списка не совпадает
  begin
    Result:=fg(r^.ukazatel,b);
  end;

end;   }


procedure TForm1.Button2Click(Sender: TObject);
var zap: telement;
    p:pelement;
    uk: pelement;
    i,n,ot,b  : integer;
begin
  ot:=0;
  o:=0;
  z:=0;
  label5.Caption:='';
  label3.Caption:='';
  n:=0;
  uk:=nil;
  while n<=stringgrid1.colcount-1 do // формирую список
  begin
    if length(stringgrid1.Cells[n,0])<>0 then
    begin
      new(p);
      p^.ukazatel:=uk;
      uk:=p;
      p^.infa:=strtoint(stringgrid1.cells[n,0]);
      n:=n+1;
    end
    else
    n:=n+1;
  end;
  b:=strtoint(edit2.text);  // узнаю какой элемент меня интересует
  ot:=fg(uk, b);
  label3.Caption:=inttostr(ot); // ответ ( вывожу на форму)
  repeat  // выводим на форму очередь в обратном порядке))
    label5.Caption:=label5.Caption+inttostr(uk^.infa)+' ';
    uk:=uk^.ukazatel;
  until uk= nil;
  label5.Caption:=label5.Caption+#13#10+inttostr(o);

end;


{procedure TForm1.Edit1KeyPress(Sender: TObject; var Key: Char);
begin
    if not (Key in [#8, '0'..'9']) then
    begin
      ShowMessage('Пожалуйста, укажите целое положительное число');
      Key := #0;
    end ;
end;

procedure TForm1.FormKeyPress(Sender: TObject; var Key: Char);
begin
    if not (Key in [#8, '0'..'9']) then
    begin
      ShowMessage('Пожалуйста, укажите целое положительное число');
      Key := #0;
    end ;
end;   }

end.

[mutabor]

Ууу, товарищ, как Вы все путаете )
Заголовки функций модуля это одно, а объявление метода в классе формы это совсем другое. Это, я бы даже сказал, две большие разницы.
Рекомендуется к прочтению: http://rsdn.ru/?article/Delphi/Delphi_7_03.xml

[vedro-compota]

спасибо, буду читать ))
спасибо))