помогите

← →
223001 (2008-01-16 21:41) [0]

уважаемые мастера можно написаную тобой функцию или процедуру сохранить в корневых папках delphi7 чтобы если ты её используеш во многих программах, её не надо было постоянно писать, а сразу вызывать?

← →
engine © (2008-01-16 21:43) [1]

> [0] 223001 (16.01.08 21:41)

можно, но придется писать, что-то вроде:
uses UnitWithMyFunction;

← →
Германн © (2008-01-16 21:50) [2]

> можно написаную тобой функцию или процедуру сохранить в
> корневых папках delphi7 чтобы если ты её используеш во многих
> программах, её не надо было постоянно писать, а сразу вызывать?
>

Можно и не в корневых, а в любой другой. Только путь к этой папке нужно добавить в "Environment Options" -> "Library" -> "Library Path".

← →
223001 (2008-01-16 21:56) [3]

а как её сохранить в обычном текстовом?

← →
engine © (2008-01-16 21:57) [4]

> [3] 223001 (16.01.08 21:56)

чего?

← →
223001 (2008-01-16 22:00) [5]

в смысле как проект delphi или в блокноте?

> [5] 223001 (16.01.08 22:00)
> в смысле как проект delphi или в блокноте?

как файл формата модуля делфи с расширением pas...

Да хоть в блокноте его набирай :)

Как .PAS модуль. Делаешь напр такой модуль:
unit MyMegaUnit; interface uses {Список_используемых модулей}; const {Глобальные_константы}; var {Глобальные_переменные}; // Прототип "экспортируемой" модулем функции function MyMegaFunc(I:Integer; P:Pointer):boolean; implementation // Эта функция "видна" не будет, т.к. её прототип не // был проставлен в секции interface. Обычно так // поступают с сервисными функциями, необходимыми // только для работы "экспортируемых". function NotVisibleFunc(C:Char):Byte; begin ... end; // Эта функция будет "видна" другим модулям, // по понятной, надеюсь, причине :) function MyMegaFunc(I:Integer; P:Pointer):boolean; begin ... end; end.

А потом добавляешь его куданить в \Source\Rtl\Common.

помогите Найти похожие ветки