указать возвращаемый тип функции ))

[vedro-compota]

Всем привет, поменьше бед)

Не могу разобраться с премудростями Делфи!
Помещаю функцию и её описание в дополнительный модуль ( дополнительный к модулю в котором находиться основная программа) так вот пока не перемещаю- всё хорошо работает, а если переместить- то Делфи требует определить возвращаемый функцией тип, хотя в коде указано- что это "integer".......в чём ошибка?
вот код этого дополнительного модуля:

unit br;


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

type
  pelement= ^telement;
  Telement= record
             infa: integer;
             ukazatel:pelement;
            end;
   TForm1 = class(TForm)
    StringGrid1: TStringGrid;
    Edit1: TEdit;
    Button1: TButton;
    Label1: TLabel;
    Button2: TButton;
    Label2: TLabel;
    Label3: TLabel;
    Edit2: TEdit;
    Label4: TLabel;
    Label5: TLabel;
   function fg ( r: pelement ; b:integer):integer;
   end;
var Form1: TForm1;
implementation


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
    Result:=1+fg(r^.ukazatel,b);
  end;
  if (r<>nil) and (b<>r^.infa) then   
  begin
    Result:=fg(r^.ukazatel,b);
  end;

end;


end.

(прикладываю архив с "проектом" ))
--------------------------------------------------------------------------
если вопрос не ясен - скажите что пояснить

[evg_m]

type
  pelement= ^telement;
  Telement= record
             infa: integer;
             ukazatel:pelement;
            end;
   TForm1 = class(TForm)
    StringGrid1: TStringGrid;
    Edit1: TEdit;
    Button1: TButton;
    Label1: TLabel;
    Button2: TButton;
    Label2: TLabel;
    Label3: TLabel;
    Edit2: TEdit;
    Label4: TLabel;
    Label5: TLabel;
   function fg ( r: pelement ; b:integer):integer;
   end;
var Form1: TForm1;
i

из всего этого в дополнительном модуле останется

   function fg ( r: pelement ; b:integer):integer;

невнимательнов рассмотрел тело функции
должно еще остаться

type
  pelement= ^telement;
  Telement= record
             infa: integer;
             ukazatel:pelement;
            end;

но форма там совсем ни к чему.
а вот в основном модуле, если остались эти определения, то их надо будет убрать.

[vedro-compota]

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

unit br;


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

type
  pelement= ^telement;
  Telement= record
             infa: integer;
             ukazatel:pelement;
            end;

function fg ( r: pelement ; b:integer) :integer ;

implementation


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
    Result:=1+fg(r^.ukazatel,b);
  end;
  if (r<>nil) and (b<>r^.infa) then  // если значение очередного элемента списка не совпадает
  begin
    Result:=fg(r^.ukazatel,b);
  end;

end;


end.

---------------------------------------------
теперь делфи говорит, что

[Pascal Error] Unit1.pas(91): E2010 Incompatible types: 'br.pelement' and 'Unit1.pelement'

какая-то несовместимость......
ужас.
(прикладываю то, что получилось "проект v1.0.0.1"))

[Hottabych]

Удалите описание type pelement из Unit1

[vedro-compota]

точно )) всё работает. Спасибо, Hottabych ))