собственные функции на готове

[милт]

Можно ли как то сделать собственный модуль или что то в этом роде. Что бы в новосозданом проекте при подключении этого модуля работали собственные функции которые я в этом модуле заранее пропишу.
То есть чтобы не надо было в новых проектах вставлять функции из старых проектов.

[XE5]

File->New->Unit
Component->New Component...

[FaTaL]

Конечно можно. Можно просто Unit свой создать и потом его подключать через uses или скомпилировать DLL.

[Smitt&Wesson]

или скомпилировать DLL.

Зачем? Вы думаете, что кроме Вас, этот код кому-то потребуеся? Заблуждаетесь. Кроме Вас, он нафиг никому не нужен.

[милт]

А как должен выглядеть юнит чтобы функции из него работали? Потому что не работают, хотя, юнит подключился в uses, и не подчёркнут.

[AnryKZKZ]

Ну как вы обычно вызываете свои функции / процедуры? Так и при подключении внешнего юнита... Поподробнее опишите в чем затык...

[Stilet]

Потому что не работают

Код и ошибки в студию.

[милт]

[dcc32 Error] Unit5.pas(30): E2003 Undeclared identifier: 'plus'
Функция складывает 2 числа. Не идентифицирована

И даже когда вношу какие то изменения в этот подключенный юнит делфи спрашивает Reload? yes no

[XE5]

Точнее не объявлена. Unit5 это наверное TForm5? А функция записана как TForm5.plus? В секции publiс функцию объяви.

[Аватар]

Вот юнит с глобальными процедурами и функциями

unit Unit2;

interface

function MyAdd(a,b: Integer): Integer;
function MySub(a,b: Integer): Integer;

implementation

function MyAdd(a,b: Integer): Integer;
begin
  Result:=a+b;
end;

function MySub(a,b: Integer): Integer;
begin
  Result:=a-b;
end;

end.

А с этого юнита к ним обращение

unit Unit1;

interface

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

type
  TForm1 = class(TForm)
    Button1: TButton;
    Label1: TLabel;
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

uses Unit2;

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
begin
  Label1.Caption:=IntToStr(MyAdd(114,333));
end;

end.