Galkov писал(а):
Dilma еще не довел до ума решение рекурсивных задачВот так вот красиво и без каких либо ошибок можно вычислить факториал числа методом рекурсии в пакете WEB:
code_1552.txt
точно так же можно бы было решить задачу не задумываясь в пакете Delphi 2, если б такой существовал, даже еще проще
Add(CallFunc,8412154,350,392)
{
Args=1
Name="regkeys"
link(Arg1,1972642:Var3,[(356,373)])
}
Add(Function,5495278,126,392)
{
Args=1
Name="regkeys"
link(onPrint,5292285:doWork1,[])
}
Add(StrCat,7951014,294,392)
{
link(onStrCat,8412154:doPrint,[])
link(Str1,1972642:Var2,[])
}
Add(ArrayEnum,1078693,238,392)
{
link(onEnum,7951014:doStrCat,[])
link(Array,15554936:Var2,[])
}
Add(GetDataEx,15554936,231,364)
{
Angle=3
link(Data,15867821:Var3,[])
}
Add(MultiElement,5292285,182,392)
{
link(onEvent1,1078693:doEnum,[])
link(Data1,15867821:Var2,[])
}
BEGIN_SDK
Add(EditMulti,15304158,6,6)
{
EventCount=1
WorkCount=1
DataCount=1
}
END_SDK
Add(GetDataEx,15867821,175,364)
{
Angle=3
link(Data,5495278:Arg1,[(169,373)(169,434)(132,434)])
}
Add(GetDataEx,1972642,287,364)
{
Angle=3
link(Data,15554936:Var3,[])
}тут MultiElement - это контейнер, которому в качестве входных данных приходит имя очередного ключа. Т.е. сюда вставляются наши действия, производимые для каждого найденного ключа.
ArrayEnum - это эмулятор элемента, который умеет выдавать список ключей для одной указанной ветки реестра.
Вот и вся задача.
Поиск
Друзья
Администрация