Научите правильно описывать процедуру.

[kot275]

Научите правильно описывать процедуру.
Доброе время суток. Научите правильно описать процедуру, а то что-то я сосем запутался.
Для примера, вот я засел на одной. Есть дата модуль(не визуальная форма), на нем размещен не визуальный компонент для подключения к базе данных. Хочу теперь в дата модуле описать свою процедуру. Как ее правильно описать? Как часть этого дата модуля — ДатаМодуль.МояПроцедура или просто МояПроцедура, но тогда к компоненту в моей процедуре мне приходится обращаться ДатаМодуль.Компонет что несколько неудобно.
Второй момент. Как правильно вызвать мою процедуру с другого модуля программы.
Спасибо

[evg_m]

Как ее правильно описать? Как часть этого дата модуля — ДатаМодуль.МояПроцедура или просто МояПроцедура, но тогда к компоненту в моей процедуре мне приходится обращаться ДатаМодуль.Компонет что несколько неудобно.

процедура работает с компонентами(данными) формы(дата модуля), следовательно это должен быть метод формы(дата модуля).

правильно описать? Как часть этого дата модуля — ДатаМодуль.МояПроцедура

TMyDM =class(TDataModule)
... 
  mycomponent: .....
public 
  procedure MyProc(....);
.....
end;

procedure TMyDM.MyProc(......);
begin
  .............
  mycomponent. //обращение к компоненту 
end;

Второй момент. Как правильно вызвать мою процедуру с другого модуля программы.

1. в Дата модуле объявлять процедуру(метод) в разделе public (смотри пример выше)
2. там где хотим использовать. подключить модуль с помощью uses. Alt +F11 + выбрать нужный
3. обращаться надо не к процедуре,а к созданному объекту данного типа.

var dm: TMyDM;  //переменная для объекта данного типа (но еще не сам объект!)

dm:= TmyDm.Create(..);// создали объект
dm.myProc(); // обращение к процедуре внутри объекта

При использовании автосоздания объектов. что делает Delphi по умолчанию, но очень не рекомендуется в больших программах.
создание не нужно(все создано автоматически, но в единственном экземпляре)
//var dm: TMyDM;

//dm:= TmyDm.Create(..);// создали объект
в качестве объекта берется автоматически генерируемая переменная из дата модуля
MyDM.myProc(); // обращение к процедуре внутри объекта

[kot275]

Спасибо. Вот на этом ошибался - procedure TMyDM.MyProc(......); писал просто procedure MyProc(......);