akvvohinc
- во-вторых, в скорее, во-первых - как ты определишь, в каких случаях надо добавить этот новый аргумент при вызове функции? Ведь эта функция вызывается иначе не обязательно в той процедуре, в которой он определял переменную, а из любой процедуры, лежащей ниже в стеке вызовов:
1) Из процедуры C вызывается функция F.
2) При этом, если C вызывается из процедуры A (не обязательно напрямую), то функция F должна отработать иначе, чем когда C вызвана, минуя А.

Аспид
По любому, длительная приват видимость (про паблик молчу, оставим эту лулгам) не есть хорошо.

lulgu
Чтобы избежать трудных имен переменных, можно использовать такую конструкцию:

  LOCAL puParam1  
  PRIVATE puParam1  
  ? функция()

и переменная исчезнет сама.

lulgu
Команда PRIVATE
Скрывает определенные переменные или массивы, которые были определены в вызываемой программе из текущей программы.

Аспид
ИМХО. Чем плохо. Через пол года, снова надо будет вызвать эту функцию с этим параметром. Замучаешься имя искать))) Скорее новое создашь, и еще одну вставку сделаешь)

Аспид
Хотя решается все элементарно. Добавляешь еще параметр, и проверяешь его существование.

akvvohinc
- во-первых, править придется все 100500 вызовов функции, где это требуется;

CLEAR
? test(10,20)
? test(30,40)

? test(10,20,20)
? test(30,40,70)

FUNCTION test
LPARAMETERS tnParam1, tnParam2, tnBribePercent
IF PCOUNT() < 3
 ? "Old version"
 RETURN m.tnParam1+m.tnParam2
ELSE
 ? "New version"
 RETURN (m.tnParam1+m.tnParam2)*(1+m.tnBribePercent/100)
ENDIF

akvvohinc
Ведь эта функция вызывается иначе не обязательно в той процедуре, в которой он определял переменную, а из любой процедуры, лежащей ниже в стеке вызовов

lulgu

akvvohinc

lulgu
Чтобы избежать трудных имен переменных, можно использовать такую конструкцию:

  LOCAL puParam1  
  PRIVATE puParam1  
  ? функция()

и переменная исчезнет сама.

1) Что бы там ни было написано в Help, LOCAL-переменная не будет скрыта командой PRIVATE.
2) Да и смысл скрывать LOCAL-переменную от функции, в которой ее и так не видно?

Вы как всегда правы:

? функция()        && .F.
puParam = 0
? функция()        && .T.

FUNCTION функция
RETURN VARTYPE(puParam) != "U"

RS. Попутно надо признать, что даже замечания от самого ИК не умаляют находку от of63.

Igor Korolyov

CLEAR
? test(10,20)
? test(30,40)

? test(10,20,20)
? test(30,40,70)

FUNCTION test
LPARAMETERS tnParam1, tnParam2, tnBribePercent
IF PCOUNT() < 3
 ? "Old version"
 RETURN m.tnParam1+m.tnParam2
ELSE
 ? "New version"
 RETURN (m.tnParam1+m.tnParam2)*(1+m.tnBribePercent/100)
ENDIF

CLEAR
? test1(10,20)
? test1(30,40)

? test2(10,20,20)
? test2(30,40,70)

FUNCTION test1
LPARAMETERS tnParam1, tnParam2
? "Old version"
RETURN m.tnParam1+m.tnParam2

FUNCTION test2
LPARAMETERS tnParam1, tnParam2, tnBribePercent
? "New version"
RETURN (m.tnParam1+m.tnParam2)*(1+m.tnBribePercent/100)

Igor Korolyov
Для чего такое может понадобиться? Может быть "в консерватории" надо кой чего поправить, а не лячкать г*нокод

akvvohinc
Готовое приложение и функция, вызывающаяся многократно из всех его подсистем.
Возникает необходимость, чтобы при вызовах из части подсистем функция отрабатывала иначе, а править все случаи (допустим, их 1000) лень.
Тогда вместо 1000 правок добавляется переменная лишь в головную программу подсистемы, требующей другого поведения функции.

akvvohinc
Путь этот может быть как угодно длинен и запутан

Igor Korolyov
А потом одна "подсистема" (А) обращается к другой (Б), скажем за банальным "итого по ведомости за прошлый месяц", и замечательным образом получает ДРУГОЙ результат, нежели получит пользователь напрямую запустивший тот же отчёт из подсистемы Б.