VPF::Вызов процедуры из другого юнита

F1reF0x

Дата 4.1.2006, 10:17 (ссылка)

(нет голосов)

Загрузка ...

Шустрый

Профиль
Группа: Участник
Сообщений: 68
Регистрация: 10.10.2005

Репутация: нет
Всего: нет

Содержательный вопрос)).
Смею предположить что ты вызываешь процедуру из другова юнита, и компилятор её не находит?
Тогда посомотри подлючил ли ты этот юнит.

Guedda

Дата 4.1.2006, 11:27 (ссылка)

(нет голосов)

Загрузка ...

Подрывник

Профиль
Группа: Завсегдатай
Сообщений: 3137
Регистрация: 27.12.2005
Где: Ростов-на-Дону

Репутация: 14
Всего: 78

Сначала необходимо сделать показ этой функции для других юнитов. Вот пример:

Код


unit Unit1;

interface

uses
  Dialogs;

procedure Foo; //вот в этой части (т.е. между [b]interface & implementation[/b]) мы показываем 
                         //всем модулям, что есть такая функция.

implementation

procedure Foo;
begin
  ShowMessage('Hello!');
end;

end.

После этого в том модуле, в котором ты хочешь использовать твою функцию, подключаешь нужный тебе модуль. Пример:

Код


unit Unit2;

interface

uses
  Unit1;

type
  TForm1 = class(TForm)
    procedure Button1Click(Sender : TObject);
...

implementation

procedure TForm1.Button1Click(Sender : TObject);
begin
  Foo;
end;

end.

Вот так это и делается. А вообще, вопрос не понятный.

Это сообщение отредактировал(а) Guedda - 4.1.2006, 11:27

--------------------

Ll 2

Teen

Дата 5.1.2006, 01:21 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 19
Регистрация: 7.12.2005

Репутация: нет
Всего: нет

а как просто вызывать процедуру, из одного и того же юнита?

FRAGNATIC

Дата 5.1.2006, 01:28 (ссылка)

(нет голосов)

Загрузка ...

..::Свирепый Кодер::..

Профиль
Группа: Участник
Сообщений: 901
Регистрация: 17.10.2004
Где: ICQ

Репутация: 6
Всего: 11

Цитата

а как просто вызывать процедуру, из одного и того же юнита?

просто

Код


procedure TForm1.Button1Click(Sender : TObject);    
begin    
  Foo;    
end;

Teen

Дата 5.1.2006, 01:40 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 19
Регистрация: 7.12.2005

Репутация: нет
Всего: нет

Цитата(FRAGNATIC @ 5.1.2006, 01:28)

Цитата

а как просто вызывать процедуру, из одного и того же юнита?

просто

Код


procedure TForm1.Button1Click(Sender : TObject);    
begin    
  Foo;    
end;

а где ещё надо прописать эту процедуру?
Добавлено @ 01:40
всё спасибо, я разобрался...

FRAGNATIC

Дата 5.1.2006, 01:44 (ссылка)

(нет голосов)

Загрузка ...

..::Свирепый Кодер::..

Профиль
Группа: Участник
Сообщений: 901
Регистрация: 17.10.2004
Где: ICQ

Репутация: 6
Всего: 11

Цитата

а где ещё надо прописать эту процедуру?

ни где просто написать её
НО она должна находится выше чем её вызывают
тоесть
твоя процедура тут
---
вызов тут
а если хочешь
вызов тут
----
проццедура тут то тогда её надо объявить в секции interface

Guedda

Дата 5.1.2006, 10:11 (ссылка)

(нет голосов)

Загрузка ...

Подрывник

Профиль
Группа: Завсегдатай
Сообщений: 3137
Регистрация: 27.12.2005
Где: Ростов-на-Дону

Репутация: 14
Всего: 78

Для правильности необходимо сначала функцию инициализировать:

Код


unit Unit1;

interface

procedure Foo; // Здесь мы инициализировали функцию.

implementation
  // А здесь мы в любом месте можем тыкать код
  // функции и ее применение
  // Допустим, вот так.

procedure Foo2;
begin
  Foo; //вот вызов функции 
end;

procedure Foo; //а вот и код функции
begin
  ShowMessage('Hello world!');
end;
end.

--------------------

Ll 2

YurikGL

Дата 5.1.2006, 10:32 (ссылка)

(нет голосов)

Загрузка ...

Бывалый

Профиль
Группа: Участник
Сообщений: 196
Регистрация: 5.7.2005
Где: Уфа

Репутация: нет
Всего: 2

Цитата

Для правильности необходимо сначала функцию инициализировать:

Процедуру procedure Foo2; тоже было бы не плохо инициализировать smile

--------------------

0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| Delphi: Общие вопросы \| Следующая тема »