Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2009.06.21;
Скачать: 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 вся ветка

Текущий архив: 2009.06.21;
Скачать: CL | DM;

Наверх




Память: 0.48 MB
Время: 0.015 c
2-1241001007
bobby
2009-04-29 14:30
2009.06.21
Объявление процедуры!


2-1241430451
Alinenka
2009-05-04 13:47
2009.06.21
Запуск созданного в проекте файла на выполнение


15-1239276494
Tenebrae
2009-04-09 15:28
2009.06.21
экспорт СМС


15-1239722171
@!!ex
2009-04-14 19:16
2009.06.21
Подскажите хороший багтрекер не сложный в установке.


15-1239929241
AIRDIGER
2009-04-17 04:47
2009.06.21
Пчему падает приложение при вызове BinToHex()