Как сделать функцию доступной везде?

← →
Vemer (2003-10-01 13:24) [0]

Здравствуйте. Создал я вчера функцию, и она даже работает, но только в своем модуле. Чтение Help и решебника не помогло. Приведите пожалуйста реальный пример как сделать функцию доступной из всех модулей (что писать и главное где).

← →
DenK_vrtz (2003-10-01 13:25) [1]

сделать dll!

← →
AlexGof (2003-10-01 13:28) [2]

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

← →
Vlad (2003-10-01 13:31) [3]

Делаешь в любом модуле функцию вне класса.
Затем в других модулях, в uses добавляешь этот. И пользуйся своей функцией сколько угодно.
Если я конечно правильно понял проблему.
P.S. Это как нибудь связано с БД ? :)

← →
DenK_vrtz (2003-10-01 13:37) [4]

млин, а я то размахнулся!
а тут не про то разговор :-)

Vlad ©, функция наверно с БД работает :-)

← →
Deniz (2003-10-01 13:46) [5]

Описать функцию в разделе interface того модуля, в котором она реализована

← →
Vemer (2003-10-01 18:23) [6]

Снова я. Извините, перепутал раздел, Форум БД просто по умолчанию у меня стоит, и функция тоже БД обрабатывает. Кстати Uses не помогает. Для меня "Сделать функцию вне класса" ни о чем не говорит. Пожалуйста напишите простой пример для меня тупого.

To Moderator: Может в общие вопросы ветку перекинуть?

← →
Vlad (2003-10-01 18:32) [7]

unit Unit1;
interface

uses ......

type
....
private
....
public
....
end;

var
......
function MyFunction(parameter: integer): boolean;
implementation

function MyFunction(parameter: integer): boolean;
begin
...
end;

------------------------------------------------------
unit Unit2

.....

implementation
uses Unit1

procedure TForm1ButtonClick(Sender: TObject);
begin
if MyFunction(...) then
end;

← →
app (2003-10-01 20:11) [8]

Vemer © (01.10.03 18:23) [6]
Сделать по умолчанию Форум Потрепаться или внимательно следить за своими сообщениями или ты хочешь что бы их удаляли?

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