Мастера DELPHI (документация, исходники, скачать)

Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

« предыдущая ветвь | форум | следующая ветвь »

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

Игорь Н. © (2004-05-13 15:11:00)
Здравствуйте, ув. мастера. Подскажите, пожалуйста, как написать и где описать процедуру, чтобы её можно было вызвать из любого места программы. Я написал процедуру

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

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

Vlad (2004-05-13 16:12:00) [1]
Да тут не Demos надо, тут хороший учебник по Паскалю для начала, а потом уже и ООП.

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

> 10] Игорь Н

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

Игорь Н. (2004-05-13 16:02:00) [3]
Что у меня неправильно? После 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);

Не работает.

Vlad (2004-05-13 15:33:00) [4]
Да, и естественно описание нужно делать в секции interface, только послеuses

Курдль (2004-05-13 15:29:00) [5]
Думаю, что тему надо закрыть с резюме: " Читайте книги"

Vlad (2004-05-13 15:29:00) [6]
в uses добавь extctrls

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

Курдль (2004-05-13 15:21:00) [8]
Видимо, Игорь Н.не видит такой закладки в списке процедур свойства OnClick вкладки Events компонента Button1.

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

Игорь Н. (2004-05-13 15:21:00) [9]
А как описать?

Vlad (2004-05-13 15:15:00) [10]
Описать в разделе interface
Реализация в разделе implementation
Так и вызывать:
Example(Некая_переменная)

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

Игорь Н. (2004-05-13 15:14:00) [11]
А как всё остальное?

Соловьев (2004-05-13 15:13:00) [12]
так же как все остальное.

Наверх

	« предыдущая ветвь \| форум \| следующая ветвь »