Скачать: CL | DM;

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

← →
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)

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

---

← →
Anatoly Podgoretsky ©   (2009-05-05 16:57) [6]

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

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

---

← →
AIK ©   (2009-05-06 13:49) [7]

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



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


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

---

Страницы: 1 вся ветка

Скачать: CL | DM;



Память: 0.46 MB
Время: 0.01 c