Скачать: 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 вся ветка

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



Память: 0.47 MB
Время: 0.019 c