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

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

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

как объявить функцию? [D4]

SerMaxx © (2007-04-27 12:27:00)
Уважаемые мастера, помогите разобраться - как можно объявить функцию в Unit1, но так что бы ее можно было вызвать и в Unit2. Понятно что при этом implementation uses Unit1 для Unit2 уже описано.... но как описать и вызвать я не понимаю. Подскажите пожайлуста! заранее благодарен за помощь

Сергей М. (2007-04-27 16:26:00) [1]

> не знаю неочень хочеться бросать

н еили н о?)

SerMaxx (2007-04-27 16:14:00) [2]
Господа огромное спасибо. а эксперименты.... не знаю не очень хочеться бросать, тем более что и программирую для себя..
Еще раз огромне спасибо за помощь!!!!

Сергей М. (2007-04-27 13:45:00) [3]

> SerMaxx (27.04.07 13:21) [2]

Какой еще "public" ? Ты же о регулярной функции(1) ведешь речь, а не о функциональном методе класса(2) !

Разницу-то сечешь между (1) и (2) ?

Впору бросать свои эксперименты и углубляться в ООП)

ASoft (2007-04-27 13:41:00) [4]
ой, наеборот:) uses после implementation

ASoft (2007-04-27 13:38:00) [5]
cм [1]

Unit2
...
uses Unit1;
implementation

...
begin
MyFuncName(параметры_если_имеются): MyResultType;
end;

end.

Reindeer Moss Eater (2007-04-27 13:36:00) [6]
может я чего-то не так делаю?

Копипастить не умеешь?

SerMaxx (2007-04-27 13:21:00) [7]
Я пошу прощения за непонимание....

interface
.. //здесь должен быть раздел public? или же все это описываеться без него?
function MyFuncName(параметры_если_имеются): MyResultType;
..
implementation

При таком способе объявления у меня вылезает ошибка:
[Error] Unit1.pas(67): Unsatisfied forward or external declaration: 'TForm1.MyFuncName'
может я чего-то не так делаю?

Сергей М. (2007-04-27 12:39:00) [8]

> как описать

Вот так:

unit1;
..
interface
..
function MyFuncName(параметры_если_имеются): MyResultType;
..
implementation
..
function MyFuncName(параметры_если_имеются): MyResultType;
begin
.. тело функции ..
end;

Наверх

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