Разбить dpr на юниты

[Alex Cones]

Как я уже упоминал, сейчас осваиваю API. И поэтому мой dpr файл разросся до 15 кб (360 строк). Работать в этой куче разумеется стало неудобно. Поэтому вопрос: как правильно вынести функи и процедуры в отдельные юниты. Если бы речь шла о связи Юнит=>юнит, то вопроса бы не возникло, это я умею. А вот с dpr=>unit ни разу не сталкивался.

[raxp]

unit winplug; // модуль с функа

interface

uses Windows,graphics,sysUtils,Messages,Tlhelp32,to_tray,activex;//oleserver,olectrls

 funca: string;

implementation

 function funca: string; -- сама функа
 begin
 end;

*.dpr

program kap;

uses Messages, Windows, 
 winplug; // подключил

procedure afsf;
begin
 // хочу тут
 funca
end;


...
begin
 // хочу тоже тут
 funca
end.

[Alex Cones]

Вот я клацнул Создать новый юнит и в дпр появилось следующее:

uses
  Windows,
  Messages,
  Commctrl,
  Classes,
  Types,
  UNTMain in 'UNTMain.pas';

Теперь, если я в UNTMain опишу процедуры или функи я смогу с ними общаться из dpr? Проверить мне не сложно, но иногда моя "самодеятельность" доходит до BSOD`а.

P.S. Все-таки попробовал. UNTMain "не видит" переменные описанные в дпр. Как с этим бороться?

[raxp]

если вынесешь их, разумеется сможешь...
это unit-

funca: string; -- это для видимости другим

implementation

 function funca: string; -- сама функа
 begin
 end;

UPD: нет, выносишь их в unit, описываешь там. в dpr в uses уже есть модуль с функа, и все... уже видны

[Alex Cones]

Т.е. Описывать их в юните, а ссылаться из дпр?
Поэксперементировал, разобрался. Спасибо за наводку.

[s.Creator]

Сообщение от Alex Cones

Вот я клацнул Создать новый юнит и в дпр появилось следующее:

uses
  Windows,
  Messages,
  Commctrl,
  Classes,
  Types,
  UNTMain in 'UNTMain.pas';

Теперь, если я в UNTMain опишу процедуры или функи я смогу с ними общаться из dpr? Проверить мне не сложно, но иногда моя "самодеятельность" доходит до BSOD`а.

Да, если описание функций будет в разделе interface
модуля то можно с ними работать.
Можете вообще весь код перенести в отдельный модуль

program ClearDpr;

uses
  UNTMain in 'UNTMain.pas';

{$R *.res}

begin
  MainAppProces();
end.

unit UNTMain;

interface

procedure MainAppProces();

implementation

uses
  Forms,
  UMainForm;

procedure MainAppProces();
begin
  Application.Initialize;
  Application.CreateForm(TForm1, Form1);
  Application.Run;
end;

end.

Но, по моему, лучше до таких крайностей не доходить, а dpr разбить функциями так чтобы был небольшой и локаничный.