unit myfunction; //реализация функции
implementation
function myfunction(x:integer):integer; //возведение в квадрат, к примеру
begin
result:=x*x;
end;
end.
теперь, чтобы поиметь эту функцию в другом модуле, мы делаем следующее:
unit usemyfunction; //использование функции
(...)
uses myfunction.pas;
implementation
procedure TForm1.Button1Click(Sender:TObject);
var y:integer;
begin
y=myfunction(5);
showmessage(inttostr(y)); //вывод результата, равного 25
end;
end.
Если вы поняли, о чём речь, то подскажите, как подобную фигню провернуть в матлабе
