Разделение кода на части

[kilgore]

здраствуйте. я работаю с дельфи 6. сейчас у меня около 7000 строк кода и навигация между всеми этими процедурами становится сложновата. как можно проект разделить на части? например: в одну положить все, что касается событий формы, в другую загрузку, в третью графику, в четвертую обработку событий...

[BOBAH13]

Для этого созданы units (модули)

[kilgore]

да, я пробовал их включать. но не разобрался со структурой. как мне перетащить процедуру в другой юнит и использовать его в первом? что писать в заголовке юнита и процедуры?

[DIgorevich]

Создаешь новый юнит, и в нем пишешь свои процедуры (если надо подключив другие юниты). В основной форме тоже подключать созданный юнит надо. Вот тебе пример маленький:Демо.rar

[kilgore]

о, большое спасибо. теперь все ясно

[mosq]

сорри за археологию, вопрос по теме:
как вынести событие компонента в отдельный юнит?

как только выношу, сразу основная форма ругается [dcc32 Error] main.pas(355): E2065 Unsatisfied forward or external declaration: 'TForm1.com1Updates'

[Аватар]

Эти процедуры все равно должны быть объектного типа. Что даст их перенос в отдельный юнит? Ну а присвоить обработчик другого объекта можно, программно например

[evg_m]

процедуру-событие вынести не можно. Но можно написать новую процедуру в новом модуле, и которую ИСПОЛЬЗОВАТЬ в "старой" процедуре-событии.

unit2

proceure NewProcEvent(<не забудь про нужные параметры>);
.....
end.

Tform1.com1updates(....);
begin
  ....
  NewProcEvent(<и с чем она будет работать>);
 ...
end;

[mosq]

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

причем, пробовал просто вкладывать текстовый файл с отдельным исходником черех {$I... , и все равно ругается.

[evg_m]

там еще в событии разные параметры от компонента приходят

заменить процедуру на класс с передачей ему данных как свойств.
(и как наиболее простой говно-вариант. одно свойство наша форма).


Как продвинутый говно-код класс с обратной связью на
property OnGetData: TNotifyEvent;

разбить супер-процедуру на нужное число более мелких процедур с разными вариантами параметров и вызывать их из события по необходимости.

if ........ then ActionProc1(........)
else if ...... then ActionProc2()
else ActionProcOther(.....);