Процедура со значениями по-умолчанию

[swyatogor]

Всем прив.. ну вот собственно сабж))
Возможно ли в лотусе для LS создавать процедуры функции) в библе или агентах с указанными для некоторых передаваемых параметров значение по-молчанию??))

 

[savl]

@swyatogor, ээээ.... а пример из другого языка можно?)

 

[swyatogor]

@savl, Да легко))

CREATE procedure [dbo].[TaskConfirmation](@TaskID binary(16), @TaskType binary(4), @TaskNum numeric(3, 0), @UserAddr varchar(100), @Answer numeric(1, 0) = 0, @Comment nvarchar(500) = '', @Date datetime = 0)

это из sql

Sub TestSub(P As String = "Default")
	Print P
End Sub

из Basic

int product(double x, double y,
double z = 1, double t = 1)
{
return x*y*z*t;
}

C++

 

[savl]

@swyatogor, прикольно, а зачем так?
понимю гибкость и тд...
НО если на конкретном примере, то:

Sub TestSub(P As String)
if len(p) = 0 then p = "Default"
Print P
End Sub

Другой вариант: передавать массив значений

 

[swyatogor]

@savl, не.. цель в другом))
Есть процедура - работает давно... вызывается из кучи мест - процедура по отправке сообщения определенной формы..
Нужно в эту процедуру добавить параметр для небольшого изменения в отображении при необходимости.. так вот чтобы всё сразу не переписывать.. не искать все точки вызова процедуры хотел добавить параметр по-умолчанию.. а уже потом методично и постепенно проходить по всем дизайн-элементам и дописывать (если нужно) этот параметр в вызов..

 

[lmike]

Нужно в эту процедуру добавить параметр для небольшого изменения в отображении при необходимости..

меняем тип параметра на Variant...
ну а дальше переписываем анализ параметра на DataType и делаем ветвление по смыслу
если IsEmpty = ставим дефолт ну и т.п.

 

[swyatogor]

@lmike, предлагаешь присоседиться к уже существующему параметру??.. вторым номером передавать?.. хм..
а не получится что тогда во всех вызовах параметр нуно будет передавать как вариант??..

 

[lmike]

параметр нуно будет передавать как вариант??

не должно и не пресуседить, а заменить тип существующего

 

[savl]

@swyatogor,
@lmike,
я так понял предложение

Было:

Sub Print(msgText as String)
 
msgbox msgtext
 
end sub

Стало:

Sub Print(msgText as Variant)
 
select case Typename(msgText)
 
case "NOTESDOCUMENT":
 
 msgbox msgText.GetITemvalue("Text")(0)
 
case "STRING":
 
msgbox msgText
 
case "STRING()":
 
msgbox implode(msgText, chr(10))
 
case Else:
 
   End Select
end Sub

ну и так далее

 

[lmike]

@savl, типа того
только чтобы стринги не сравнивать -

Ссылка скрыта от гостей