Если под словом "программа" подразумевается обычный PRG-файл, то
1. Объединение в один PRG
-) Создаешь новый файл PRG
-) Копируешь в этот новый файл каждый из 102 PRG окружая их дополнительными "скобками"
PROCEDURE NamePrgFile1
* Здесь текст очередного PRG-файла с именем NamePrgFile1
RETURN
PROCEDURE NamePrgFile2
* Здесь текст очередного PRG-файла с именем NamePrgFile2
RETURN
Этот процесс можно автоматизировать, используя функции FileToStr() и StrToFile(), ну и ADIR() - т.е. написать простенькую прогу с циклом
-) Для использования такого файла в проге необходимо дать предварительную команду
SET PROCEDURE TO MyBigFile
или же при вызове очередной проги использовать синтаксис
DO NamePrgFile2 IN MyBigFile
2. Объединение в один класс.
Тут можно сделать абсолютно по аналогии с файлом PRG, т.е. тоже создать PRG-файл, но несколько другого содержания. С определением класса на основе базового класса CUSTOM.
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
DEFINE CLASS MyBigPrg AS custom
DoCreate = .T.
Name = "MyBigPrg"
PROCEDURE NamePrgFile1
* Здесь текст очередного PRG-файла с именем NamePrgFile1
ENDPROC
PROCEDURE NamePrgFile2
* Здесь текст очередного PRG-файла с именем NamePrgFile2
ENDPROC
ENDDEFINE
В принципе, мне больше нравится класс в файле VCX. Такой класс можно просмотреть разными визуальными средствами. Но как перекинуть класс, созданный программно в библиотеку классов я не знаю. Просто не было необходимости в такой операции.
Как использовать класс в программе?
Если экземпляр класса положить на форму, то ничего дополнительно делать не надо. Так прямо и обращаться:
ThisForm.MyBigPrg.NamePrgFile1()
Если же класс необхоидимо использовать программно, то:
-) Если класс описан через DEFINE CLASS, то PRG в котором он содержится необходимо также подключить по SET PROCEDRE TO
-) Если класс описан в VCX-файле, то он подключается следующей командой:
SET CLASSLIB TO MyBigPrg.VCX
Далее необходимо создать экземпляр класса:
LOCAL loMyCustom
loMyCustom=CREATEOBJECT("MyBigPrg")
Ну и далее уже можно обращаться к методам этого экземпляра
loMyCustom.NamePrgFile1()
