Переменные в рекурсии / FoxPro, Visual FoxPro

ReSQL.ru

Мобильная версия Контакт Правила FAQ Помощь

Гость

Войти | Регистрация | Профиль | Очистить

Новые сообщения | Избранное

Форумы | Пользователи | Статистика | Мод. лог | Поиск

Доб. в избранное | Игнор. тему | Прикреп. тему | Пометить прочит. / непрочит. | Фильтр

Форумы / FoxPro, Visual FoxPro [игнор отключен] [закрыт для гостей] / Переменные в рекурсии

4 сообщений из 4, страница 1 из 1

Переменные в рекурсии

#38777099

miv32

Гость

Добрый день!
Не могу разобраться в видимости переменных.
Есть один пример, где идет подсчет объектов на форме.

Код: sql

1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
15.
16.
17.
18.
19.
20.
21.
22.
23.
24.
25.
26.
27.

function GetControlCount
lparameters toObject

local lnCount, loControl
lnCount = 0

with toObject
   lcBaseClass = upper(.BaseClass)
   do case
   case m.lcBaseClass+'$' $ "FORM$PAGE$CONTAINER$"
        for each loControl in .Controls
            lnCount = m.lnCount + GetControlCount(m.loControl)
        endfor
   case m.lcBaseClass == "FORMSET"
        for each loControl in .Forms
            lnCount = m.lnCount + GetControlCount(m.loControl)
        endfor
   case m.lcBaseClass == "PAGEFRAME"
        for each loControl in .Pages
            lnCount = m.lnCount + GetControlCount(m.loControl)
        endfor
   otherwise
        lnCount = 1
   endcase
endwith
return m.lnCount
ENDFUNC

Как оно вообще работает? :)
По идее значение переменной lnCount сбрасывается в 0 при каждом вызове функции

...

Рейтинг:

0 / 0

15.10.2014, 11:44

| Ответить | Цитировать | Написать

Переменные в рекурсии

#38777107

Dima T

Участник

Сообщения: 15 530

Рейтинг: 0 / 0

Код: sql

return m.lnCount

Посчитал и вернул что насчитал. Чего сложного?

...

Рейтинг:

0 / 0

15.10.2014, 11:52

| Ответить | Цитировать | Написать

Переменные в рекурсии

#38777115

Dima T

Участник

Сообщения: 15 530

Рейтинг: 0 / 0

Извиняюсь, не заметил что рекурсия.

Код: sql

local lnCount

означает что переменная локальная. Т.е. в каждом рекурсивном вызове она своя, а не одна на все вызовы
Равносильно такому

Код: sql

1.
2.
3.
4.
5.
6.
7.
8.
9.
10.

local x
x = 10
? fn()
? x
return

func fn
local x
x = 20
return x

убери local x и посмотри что будет

...

Рейтинг:

0 / 0

15.10.2014, 11:57

| Ответить | Цитировать | Написать

Переменные в рекурсии

#38777134

miv32

Гость

Спасибо. Дошло. :)

...

Рейтинг:

0 / 0

15.10.2014, 12:13

| Ответить | Цитировать | Написать

4 сообщений из 4, страница 1 из 1

Форумы / FoxPro, Visual FoxPro [игнор отключен] [закрыт для гостей] / Переменные в рекурсии

Цитировать

Написать

Автор*:

Ввести пароль для входа

Тема*:

Сообщение

Данное сообщение тематическое

Сообщение содержит картинки или видео 18+

Автор:

ВНИМАНИЕ! На данном подфоруме действуют строгие правила. Удостоверьтесь, что ваше сообщение соответствует им!

Форум или тема закрыты для гостей. Необходима авторизация!

Загрузить последнюю сохраненную версию

Вложение:

Вставить как галерею

Максимальный размер вложений: 4,0 МБ, аудио/видео: 8,0 МБ. Картинки большего размера ужимаются, если возможно.

Введите код, изображенный на картинке. Если код нечитаемый, кликните картинку, чтобы загрузить другой вариант.

Отправляя сообщение, я выражаю свое согласие с правилами форума и принимаю пользовательское соглашение.

Читали тему (0):

Читали форум (0):

Пользователи онлайн (0):

start [/forum/topic.php?fid=41&fpage=28&tid=1582515]:	0ms
get settings:	9ms
get forum list:	12ms
check forum access:	3ms
check topic access:	3ms
track hit:	47ms
get topic data:	10ms
get forum data:	2ms
get page messages:	39ms
get tp. blocked users:	1ms
others:	313ms

total:	439ms