Дополняю подпрограмму:Code
:123
GetObjectInfo "[Self]" "Caption" "[tmp]"
If "[log]" "=" ""
SetVar "[log]" "[Self]"
SetVar "[log2]" "[tmp]"
Else
SetVar "[log]" "[log];[Self]"
SetVar "[log2]" "[log2];[tmp]"
EndIf
Return
[log]- список объектов через разделитель
[log2]- список заголовков объектов через разделительДобавлено (02 Февраля 2012, 10:14)
---------------------------------------------
Quote (anton)
отлично работает, вопрос снят....
удачи в программировании...