Свой модуль в делфи 2010

Discussion in 'С/С++, C#, Rust, Swift, Go, Java, Perl, Ruby' started by bertys, 8 Nov 2012.

  1. bertys

    bertys New Member

    Joined:
    25 Jan 2012
    Messages:
    162
    Likes Received:
    0
    Reputations:
    0
    Почему то выбивает ошибку что не объявлен идентефикатор add

    Код:
    Сама форма:
    PHP:
    uses
      matem
    ;

       ...

    procedure TForm1.Button1Click(SenderTObject);
    var
    a,b:integer;
    begin
    a
    :=strtoint(edit1.text);
    b:=strtoint(edit2.text);
    label1.caption:=inttostr(add(a,b));  <---тут ошибку выдает
    end
    ;

    end.
    Код модуля
    PHP:
    unit matem;

    interface


    implementation

    umn
    (a:integer):integer;
    begin
    result
    :=((a+1)*4)-3;
    end;

    del(b:integer):integer;
    begin
    result
    :=((b-4)*6)-4;
    end;

    function 
    add(a,b:integer):integer;
    var
    c:integer;
    begin
    c
    :=((a+b)*umn(a))/(del(b));
    result:=c;
    end;

    end.
    Подскажите в чем дело. Зарание спасибо
     
  2. patcher

    patcher Banned

    Joined:
    15 Dec 2009
    Messages:
    190
    Likes Received:
    37
    Reputations:
    10
    функцию необходимо описать - после ключевого слова interface:
    Code:
     unit matem;
    
    interface
    function add(a,b:integer):integer;
    
    implementation 
    ...............