:: Архив конференции по VFP до 2005 года
Создание метода программно
YuriWhite
Автор

Сообщений: 558
Откуда: Челябинск
Дата регистрации: 02.09.2000
Вот subj надо сделать - никогда не сталкивался с этим.
Возможно ли это и как.
Спасибо.
Ratings: 0 negative/0 positive
RE: Создание метода программно
Игорь Ильин
Вроде бы только через создание класса
Сначала
define class MyClass as ...
...
procedure MyProc
*** твой метод ***
...
endproc
enddefine

А потом
oObjectWithMyMethod=createobject('MyClass')

P.S. А тебе оно надо? ;)
Может, проще обойтись обычной процедурой?
Ratings: 0 negative/0 positive
RE: Создание метода программно
Sergey Titow

Сообщений: 2242
Дата регистрации: 12.09.2000
Прямого решения не нашел, а кривое выглядит примерно так:

define class Curve_solution as custom
procedure Curve_Proc
lpara pname, p1, p2, p3, p4.....
if file(pname + ".prg")
return eval(pname + "(p1, p2, p3, p4.....)")
else
return .NULL.
endif
endproc
enddefine

Затем программно создается файл и его имя отсылается параметром
Ratings: 0 negative/0 positive
RE: Создание метода программно
Sergey Titow

Сообщений: 2242
Дата регистрации: 12.09.2000
Еще появилась мысль: если oObjectWithMyMethod из ответа Игоря Ильина сделать не просто переменной, а свойством объекта? Т.е работать примерно так:

obj.oObjectWithMyMethod = .NULL.
set proc to
Меняем описание класса
set proc to [файл_с_классом]
obj.oObjectWithMyMethod = createobject('MyClass')
?obj.oObjectWithMyMethod.MyProc()
Ratings: 0 negative/0 positive


Извините, но у вас нет прав для того, чтобы оставлять сообщения в этом форуме.

On-line: 2 (Гостей: 2)

© 2000-2024 Fox Club 
Яндекс.Метрика