[Taddy23]

Подскажите пожалуйста -
например прога состоит из 2 модулей - unit1, unit 2
В первом описана процедура procedure1.
Как её использовать в unit2.

Понятно что в unit2 надо подключить unit1, но видимо этого не достаточно, что надо еще сделать?

[NIch]

Этого вполне достаточно, только прописывать ее (procedure1) нужно в unit1 в interface-ной части...

[Taddy23]

Cпасибо, а можно прямо пальцем тыкнуть где процедура должна быть обьявлена?

Сейчас так

Код:

unit Unit 1;

interface

uses ........;

type 
 TForm1= class (TForm)
 ...
 procedure procedure1(senderL TObject);
 ...

 private
 {}
 pablic
 {}
 end;
 var
 Form1: TForm1;

 implementation
 uses ....;
 {$R *.dfm}

Вот при такой конструкции из модуля 2 данная процедура не доступна.

[mol-Ou]

Код:

Form1.<Имя процедуры>(Sender);

так недоступно?...

[Taddy23]

да, так недоступна.
Переменные обьявленные в модуле 1 из модуля 2 доступны, а процедура нет.

[NIch]

Попробуй так...

unit Unit 1;

interface

uses ........;

type
TForm1= class (TForm)
...
private
{}
pablic
{}
end;

procedure procedure1;//воткни ее сюда

var
Form1: TForm1;

implementation
uses ....;
{$R *.dfm}

[mol-Ou]

У меня так:

Код:

unit Unit2;

interface

uses....

type
  TFrame2 = class(TFrame)
........................
procedure BitBtn1Click(Sender: TObject);

private
......
public
......
end;

implementation

uses Unit1;

{$R *.dfm}
// далее описание процедур, и вот процедура нажатия на кнопку:
procedure TFrame2.BitBtn1Click(Sender: TObject);
var
.......
begin
...........
end;

а вызываю я её из меню формы1, соответственно Unit1 :

Код:

procedure TForm1.N2Click(Sender: TObject);
begin
Form1.Frame21.BitBtn1Click(Sender);
end;

Попробуй в uses описать их друг у друга.
в Unit1:

Код:

Uses Unit2;

B Unit2:

Код:

Uses Unit1;

[Taddy23]

Я очень сильно извиняюсь, чутка ошибся - у меня процедура не является обьектом формы, поэтому небольшие изменения

Код:

unit Unit 1;

interface

uses ........;

type 
TForm1= class (TForm)
...
procedure procedure1(senderL TObject);  //- тут процедуры конечно же нету это ошибка,т.к. процедура моя не объект формы.
...

private
{}
pablic
{}
end;
var
Form1: TForm1;

implementation
uses ....;
{$R *.dfm}

//- процедура1 описана сразу после странной надписи $R *.dfm в фигурных ковычках -

procedure procedure1(...);
begin
...
end;//

Если процедуру запехнуть туда, куда советует nich, то
то компилятор говорит - Statement not allowed in interface part

Совет Mol-Ou тоже не подходит - модули и так у друг друга подключены, а form1.proc1 не помогает


Вопрос остался не решённым- явно в unit1 процедуру1 гдето не там надо описать где у меня.

[Dormidont]

В строке
procedure procedure1(senderL TObject);
опечатка: senderL
Видимо, поэтому и "Statement not allowed in interface part"

[NIch]

А так???

Код:

unit Unit 1;

interface

uses ........;

type 
TForm1= class (TForm)
...
private
{}
pablic
{}
end;

var
Form1: TForm1;

procedure procedure1;//воткни ее сюда

implementation
uses ....;
{$R *.dfm}

[Taddy23]

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

Оказалось надо так

Код:

unit Unit 1;

interface

uses ........;

procedure procedure1(a:integer);

type 
TForm1= class (TForm)
...

private
{}
pablic
{}
end;
var
Form1: TForm1;

implementation
uses ....;
{$R *.dfm}


procedure procedure1(a:integer);
begin
...
end;//

lmikle: Такс, ну что? 2 месяца рид-онли?

[s0Creator]

Сообщение от Taddy23

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

Просто нет слов...
Из справки ( про Statements not allowed in interface part )

The interface part of a unit can only contain declarations, not statements.

Move the bodies of procedures to the implementation part.

unit Produce;

interface

procedure MyProc;
begin (*<-- Error message here*)
end;

implementation

begin
end.

We got carried away and gave MyProc a body right in the interface section.

unit Solve;

interface

procedure MyProc;

implementation

procedure MyProc;
begin
end;

begin
end.

We need move the body to the implementation section - then it's fine.

Хотя может я отстал и Delphi уже в начальных классах преподают ?