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

← →
Игорь Н. (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

Да, и естественно описание нужно делать в секции 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);

Не работает.

> 10] Игорь Н

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

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

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