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

@kot275 · Регистрация: 13.08.2012

Author24 — интернет-сервис помощи студентам

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

@Alex_pac · 08.10.2012, 16:57

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

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

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

почитай про классы в дельфи.
Особенно что такое public private protected и волшебное слово self

а также сочетание клавиш CTRL+SHIFT+C которое автоматически пишет базовый код методов классов

тогда не будет возникать вопросов

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

сначало надо этот модуль подключить с помощью uses

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

Обращение к подключенному модулю довольно простое.

ИмяМодуля.Имяпеременной или класса

DataUnit1.DataModule1.AdoTable1 и тп

для сокращения можно использовать оператор with

@kot275 · 08.10.2012, 17:03 **[ТС]**

Пример разбираю.

Delphi

unit DataMain;
 
interface
 
uses
  SysUtils, Classes, FIBDatabase, pFIBDatabase;
 
type
  TdmMain = class(TDataModule)
    dbDataBase: TpFIBDatabase;
  private
    { Private declarations }
 
  public
    { Public declarations }
    procedure Login(R: Boolean); <-- здесь ругается Unsatisfied forward or external declaration: 'TdmMain.Login'
  end;
 
var
  dmMain: TdmMain;
 
implementation
 
{$R *.dfm}
 
procedure Login(R: Boolean);
begin
  if dmMain.dbDataBase.Connected then
    dmMain.dbDataBase.Connected := False;
  with dmMain.dbDataBase.ConnectParams do
    begin
      UserName := 'SYSBDA';
      Password := 'masterkey';
      //RoleName := urole;
    end;
  dmMain.dbDataBase.DBName  := '';
  dmMain.dbDataBase.Connected := True;
  R := dmMain.dbDataBase.Connected;
end;
 
end.

Вроде все как Вы сказали. Но ошибка. Я указал где ругается.

@Alex_pac · 08.10.2012, 17:15

public
{ Public declarations }
procedure Login(R: Boolean); //<-- ПОСТАВЬ курсор на эту строчку
end;

поставь туда курсор и нажми CTRL+SHIFT+C

@Critically · 08.10.2012, 17:27

procedure Login(R: Boolean); Можно дописать так procedure TForm1.Login(R: Boolean); ну или ту форму которая у тебя есть...

А вообще лучше делать как сказал 'Alex Pac', тогда при создании процедур не будет никаких проблем...

@kot275 0 / 0 / 0 Регистрация: 13.08.2012 Сообщений: 15
		1
	Научите правильно описывать процедуру 08.10.2012, 16:37. Показов 2217. Ответов 4 Метки нет (Все метки) Научите правильно описывать процедуру. Доброе время суток. Научите правильно описать процедуру, а то что-то я сосем запутался. Для примера, вот я засел на одной. Есть дата модуль(не визуальная форма), на нем размещен не визуальный компонент для подключения к базе данных. Хочу теперь в дата модуле описать свою процедуру. Как ее правильно описать? Как часть этого дата модуля — ДатаМодуль.МояПроцедура или просто МояПроцедура, но тогда к компоненту в моей процедуре мне приходится обращаться ДатаМодуль.Компонет что несколько неудобно. Второй момент. Как правильно вызвать мою процедуру с другого модуля программы. Спасибо 0

@Alex_pac 1302 / 708 / 107 Регистрация: 25.05.2011 Сообщений: 2,158 Записей в блоге: 51
	08.10.2012, 16:57	2
	Есть дата модуль(не визуальная форма), на нем размещен не визуальный компонент для подключения к базе данных. Хочу теперь в дата модуле описать свою процедуру. сначала задайся вопросом зачем тебе в дата модуле процедура и почему она должна быть обязательно в нем? В большинстве случаев достаточно описания событий компонентов внутри датамодуля. Как часть этого дата модуля — ДатаМодуль.МояПроцедура или просто МояПроцедура, но тогда к компоненту в моей процедуре мне приходится обращаться ДатаМодуль.Компонет что несколько неудобно. почитай про классы в дельфи. Особенно что такое public private protected и волшебное слово self а также сочетание клавиш CTRL+SHIFT+C которое автоматически пишет базовый код методов классов тогда не будет возникать вопросов Второй момент. Как правильно вызвать мою процедуру с другого модуля программы. сначало надо этот модуль подключить с помощью uses uses может описываться в двух разделах. interface и implementation разницу объяснить мне несколько трудно. ибо надо показывать на примере. Обращение к подключенному модулю довольно простое. ИмяМодуля.Имяпеременной или класса DataUnit1.DataModule1.AdoTable1 и тп для сокращения можно использовать оператор with 0

@Alex_pac 1302 / 708 / 107 Регистрация: 25.05.2011 Сообщений: 2,158 Записей в блоге: 51
	08.10.2012, 17:15	4
	public { Public declarations } procedure Login(R: Boolean); //<-- ПОСТАВЬ курсор на эту строчку end; поставь туда курсор и нажми CTRL+SHIFT+C 1

@Critically 10 / 10 / 6 Регистрация: 14.03.2011 Сообщений: 392
	08.10.2012, 17:27	5
	procedure Login(R: Boolean); Можно дописать так procedure TForm1.Login(R: Boolean); ну или ту форму которая у тебя есть... А вообще лучше делать как сказал 'Alex Pac', тогда при создании процедур не будет никаких проблем... 1