Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2004.06.06;
Скачать: CL | DM;

Вниз

Как написать глобальную процедуру?   Найти похожие ветки 

 
Игорь Н.   (2004-05-13 15:11) [0]

Здравствуйте, ув. мастера. Подскажите, пожалуйста, как написать и где описать процедуру, чтобы её можно было вызвать из любого места программы. Я написал процедуру

procedure example(некая переменная:некий тип);
begin
...
end;

Как сделать так, чтобы её можно было вызвать, например по нажатию button1?


 
Соловьев ©   (2004-05-13 15:13) [1]

так же как все остальное.


 
Игорь Н.   (2004-05-13 15:14) [2]

А как всё остальное?


 
Vlad ©   (2004-05-13 15:15) [3]

Описать в разделе interface
Реализация в разделе implementation
Так и вызывать:
Example(Некая_переменная)

Что бы эту процедуру "видели" другие модули, нужно этот модуль добавить им в USES


 
Курдль ©   (2004-05-13 15:21) [4]

Видимо, Игорь Н. не видит такой закладки в списке процедур свойства OnClick вкладки Events компонента Button1.

procedure TForm1.Button1Click(Sender: TObject);
begin
 MyProcedure; //Прописанная глобально
end;


 
Игорь Н.   (2004-05-13 15:21) [5]

А как описать?


 
Игорь Н.   (2004-05-13 15:27) [6]

В Interface пишу: procedure uv(im:Timage); - Он ругается, неизвестный идентификатор Timage, но это и понятно - Interface находится перед uses. Где и как описать процедуру, чтобы она вызывалась из любого места программы?


 
Курдль ©   (2004-05-13 15:29) [7]

Думаю, что тему надо закрыть с резюме: "Читайте книги"


 
Vlad ©   (2004-05-13 15:29) [8]

в uses добавь extctrls


 
Vlad ©   (2004-05-13 15:33) [9]

Да, и естественно описание нужно делать в секции interface, только после uses


 
Игорь Н.   (2004-05-13 16:02) [10]

Что у меня неправильно? После uses я написал  

procedure uv(im:Timage);

после implementation написал

procedure uv(im:Timage);
begin
im.Width:=im.Width+10;
im.Height:=im.Height +10;
end;


И на button1Click написал

uv(Image1);

Не работает.


 
Соловьев ©   (2004-05-13 16:08) [11]


> 10] Игорь Н

открой папку Demos там где у тебя делыя стоит - и смотри. Узнаешь очень много полезного.


 
Vlad ©   (2004-05-13 16:12) [12]

Да тут не Demos надо, тут хороший учебник по Паскалю для начала, а потом уже и ООП.



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

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

Наверх




Память: 0.49 MB
Время: 0.025 c
1-1085424806
Дмитрий 2004
2004-05-24 22:53
2004.06.06
Подскажите Срочно! как определить видеопамять на видюхе


14-1084779718
Alex_xxx
2004-05-17 11:41
2004.06.06
W2000,D6, EXE,ini, ПРАВА ДОСТУПА


1-1085303046
G_U_N
2004-05-23 13:04
2004.06.06
Видеокарта


4-1082128654
WELLiON
2004-04-16 19:17
2004.06.06
меню в трее


1-1084701620
Nikoss
2004-05-16 14:00
2004.06.06
создание динамического массива объектов TImage