Скажем, к примеру, у меня есть функция написанная в Unit1(или Project1) function Calc (x,y:integer):integer; begin .... end;
И есть Unit2(Prtoject2),к примеру, такая unit Unit2; .... procedure TForm1.Button1Click(Sender: TObject); begin ... и здесь внутри надо запустить эту функцию Calc(x,y); ... end;
Записывать функцию в библиотеку не подходит,функции сложные,внутри много вычислений. Способы накидайте пожалуйста.
|