| Форумы
ЧАТ |
Орешник |
|
| Форумы -» | Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG |
|
| ||
|
|
Новости |
Поиск |
FAQ |
Статьи |
Книги |
Новости VCL
| | Форумы ЧАТ |
Орешник |
|
| |||
| |||
| |||
« предыдущая ветвь | форум | следующая ветвь »
Вызвать процедуру из другого модуля [D7, XP]
Zalum © (2009-05-05 11:17:00)Добрый день! У меня вь программе есть 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,причем передать в эту процедуру параметр В. Изменять эту процедуру нельзя.
Как это сделать?
AIK (2009-05-06 13:49:00) [1]
> Ega23 © (05.05.09 12:35) [4]
> clickmaker © (05.05.09 16:47) [5]
Блин действительно кудаж ему передавать параметр
Виноват не расмтрел как следует :(
Anatoly Podgoretsky (2009-05-05 16:57:00) [2]> clickmaker (05.05.2009 16:47:05) [5]
Как в анекдоте про взлом серверов Пентагона.
clickmaker (2009-05-05 16:47:00) [3]> Так и вызывай
> Form1.DoSomethingTBClick(B)
если долго и упорно вызывать, может, она и согласится принять параметр
Ega23 (2009-05-05 12:35:00) [4]
> Так и вызывай
> Form1.DoSomethingTBClick(B)
Да ну? :)
AIK (2009-05-05 11:52:00) [5]
> В Unit2 есть следующая процедурка
> procedure Form1.DoSomethingTBClick();
> var a:Integer;begin
...
> Мне надо вызвать процедуру DoSomething из Unit1
То есть в то время как она и есть типа в Unit1 и Unit2?
Так и вызывай
Form1.DoSomethingTBClick(B)
И не забудь подключить модуль Unit1 (File-> Use Unit->Нужный модуль “OK”)
Ega23 (2009-05-05 11:41:00) [6]
> В Unit2 есть следующая процедурка
Нету в Unit2 такой процедурки. В юнит2 есть метод класса "Form1"
Сергей М. (2009-05-05 11:27:00) [7]
> причем передать в эту процедуру параметр В. Изменять эту
> процедуру нельзя
Ну тогда выкинь затею из головы.
| |
