| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL | | Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

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

помогите

223001 ©   (2008-01-16 21:41:00) 

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

---

Dib@zol   (2008-01-16 22:11:00) [1]

Как .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.

---

{RASkov}   (2008-01-16 22:03:00) [2]

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

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

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

---

223001   (2008-01-16 22:00:00) [3]

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

---

engine   (2008-01-16 21:57:00) [4]

> [3] 223001   (16.01.08 21:56)

чего?

---

223001   (2008-01-16 21:56:00) [5]

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

---

Германн   (2008-01-16 21:50:00) [6]

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

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

---

engine   (2008-01-16 21:43:00) [7]

> [0] 223001   (16.01.08 21:41)

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

---

Наверх