Объявление собственной глобальной процедуры

[Gorin]

Скажите, возможно ли объявление своей глобальной процедуры в основном юните или обязательно надо создавать отдельный. Спасибо.

[Stilet]

ну вообще возможно, как обычно обьявляй и все. Как в паскале обычном

[Iceman]

не. можно и в юните с формой. ток "type" луче не пиши.

[Gorin]

Тогда непонятно. Пытаюсь объявить

unit Unit1;
 
interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms...;
type
  TForm1 = class(TForm)
    StringGrid1: TStringGrid
      ...
procedure FormCreate(Sender: TObject);
   procedure Button2Click(Sender: TObject)
...    
Procedure BaseLoad //соотвественно моя
 
private
 
  public
 
end;
 
var
Form1: TForm1;
...

implementation
 
uses Unit2, Unit5, Unit6;
 
Procedure BaseLoad;
begin
ShowMessage('65');
end;

{$R *.dfm}

procedure TForm1.FormCreate(Sender: TObject);
...

Получаю 199
[Error] Unit1.pas(199): Unsatisfied forward or external declaration: 'TForm1.BaseLoad'

[SERG1980]

создавай её после дерективы {$R *.dfm}

[Gorin]

Это, к сожалению, никак не влияет.

[Stilet]

Gorin, ты не верно истолковал понятие Глобальности :

Вот форма с которой описана процедурка, достаточно глобальная

unit Unit1;

interface

uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs;

type
TForm1 = class(TForm)
private
{ Private declarations }
public
{ Public declarations }
end;
procedure rr;
var
Form1: TForm1;

implementation

{$R *.dfm}
//********* PROCEDURE**********
procedure rr;
//const
//Var
begin
ShowMessage('dsdsd');
end;
//********* END PROCEDURE******* {}


end.


А вот другой модуль в котором нуна ее вызвать :

unit Unit2;

interface

uses unit1, // Вот тут мы подключаем тот модуль
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls;

type
TForm2 = class(TForm)
Button1: TButton;
procedure Button1Click(Sender: TObject);
procedure FormCreate(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;

var
Form2: TForm2;

implementation

{$R *.dfm}

procedure TForm2.Button1Click(Sender: TObject);
begin
rr; // И вызываем из него процедуру.
end;

procedure TForm2.FormCreate(Sender: TObject);
begin
show;
end;

end.


Делов то...

[Gorin]

Да, спасибо. А я ,видать, пытался присобачить свою процедуру к форме, лепил до end;

[mutabor]

это далеко не единственный способ, со временем разберешься как тебе удобнее

[mahovik]

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

procedure sozdanie_tablicy(tablename,fields_t able:string);
var CommADO:TADOCommand;
ADOConnection1: TADOConnection;//без этой строки ругается Delphi
begin
CommADO:=TADOCommand.Create(nil);
CommADO.Connection:=AdoConnection1;//на эту строку
CommADO.CommandText:='CREATE TABLE '+tablename+fields_table;
CommADO.Connection.BeginTrans;
CommADO.Execute;
CommADO.Connection.CommitTrans;
end;
А если в процедуре объявляю переменную
ADOConnection1: TADOConnection;
то потом прога не идет выдает ошибку
---------------------------
Debugger Exception Notification
---------------------------
Project proga.exe raised exception class EAccessViolation with message 'Access violation at address 004C98B9 in module 'proga.exe'. Read of address 0000006C'. Process stopped. Use Step or Run to continue.

Где я не так объявляю процедуру?