Вызвать процедуру из другого модуля

← →
Zalum (2009-05-05 11:17) [0]

Добрый день! У меня вь программе есть 2 модуля Unit1 и Unit2.
В Unit2 есть следующая процедурка
procedure Form1.DoSomethingTBClick(); var a:Integer; begin a := IBQuery1.FieldByName("nnn_ID").AsInteger; ShowMessage(IntToStr(a)); end;
В CommandText Editor е IBQuery1 запрос следующий
select * from Table1 where b=:B
Мне надо вызвать процедуру DoSomething из Unit1,причем передать в эту процедуру параметр В. Изменять эту процедуру нельзя.
Как это сделать?

← →
Сергей М. © (2009-05-05 11:27) [1]

> причем передать в эту процедуру параметр В. Изменять эту
> процедуру нельзя

Ну тогда выкинь затею из головы.

← →
Ega23 © (2009-05-05 11:41) [2]

> В Unit2 есть следующая процедурка

Нету в Unit2 такой процедурки. В юнит2 есть метод класса "Form1"

← →
AIK © (2009-05-05 11:52) [3]

> В Unit2 есть следующая процедурка
> procedure Form1.DoSomethingTBClick();
> var a:Integer;begin

...

> Мне надо вызвать процедуру DoSomething из Unit1

То есть в то время как она и есть типа в Unit1 и Unit2?
Так и вызывай
Form1.DoSomethingTBClick(B)

И не забудь подключить модуль Unit1 (File-> Use Unit->Нужный модуль “OK”)

← →
Ega23 © (2009-05-05 12:35) [4]

> Так и вызывай
> Form1.DoSomethingTBClick(B)

Да ну? :)

← →
clickmaker © (2009-05-05 16:47) [5]

> Так и вызывай
> Form1.DoSomethingTBClick(B)

если долго и упорно вызывать, может, она и согласится принять параметр

> clickmaker (05.05.2009 16:47:05) [5]

Как в анекдоте про взлом серверов Пентагона.

> Ega23 © (05.05.09 12:35) [4]

> clickmaker © (05.05.09 16:47) [5]

Блин действительно кудаж ему передавать параметр
Виноват не расмтрел как следует :(

Вызвать процедуру из другого модуля Найти похожие ветки