Вниз
Скачать: CL | DM;

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

← →
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]
Сделать по умолчанию Форум Потрепаться или внимательно следить за своими сообщениями или ты хочешь что бы их удаляли?



Страницы: 1 вся ветка

Скачать: CL | DM;



Память: 0.46 MB
Время: 0.016 c
6-40567
rus
2003-08-16 17:56
2003.10.13
WebBrowser Как отловить все обращения WebBrowser?


14-40634
Knight
2003-09-22 11:30
2003.10.13
---|Ветка была без названия|---


7-40688
arous
2003-07-29 22:35
2003.10.13
Событие на изменение файлов


6-40547
pavel_guzhanov
2003-08-15 13:31
2003.10.13
Сервер и клиент при помощи Indy


6-40558
AlexMan
2003-08-13 10:44
2003.10.13
Delphi и локальная сеть




   Наверх