|
|
Регистрация | << Правила форума >> | FAQ | Пользователи | Календарь | Поиск | Сообщения за сегодня | Все разделы прочитаны |
|
Опции темы | Поиск в этой теме | Опции просмотра |
#1
|
|||
|
|||
Как реализовать ЗАМЫКАНИЕ в DELPHI 7
Нужно реализовать, например, след. консткукцию:
Код:
type TFunc=function(t:real):real; function derive(x:TFunc):TFunc; const h=0.001; function xd(t:real):real; begin result:=result; result:=(x(t+h)-x(t))/h; end; begin result:=xd; {Ошибка: Local procedure/function 'xd' assigned to procedure variable} end; Важен результат именно типа TFunc. Важна реализация именно в Delphi 7. Помогите пожалуйста корректно задать функцию. Последний раз редактировалось nikolai1324, 02.11.2011 в 00:25. |
#2
|
||||
|
||||
Хоть сам понял что написал?)
Тебе рекурсию нужно сделать? |
#3
|
|||
|
|||
Цитата:
Не рекурсию, а функцию (от заданной функции) возвращающую функцию (а не её значение в конкретной точке) . function derive(x:TFunc):TFunc; |
#4
|
|||
|
|||
А через классы не проще сделать?
Хотя и через процедурный тип можно сделать. Только нельзя делать указатель на локальную функцию. Функция должна быть глобальной. Но я все-же рекомендую делать через классы. |
#5
|
|||
|
|||
чёто подобное через классы так делал:
PHP код:
|