Я так и написал. Все работает. Но на душе не приятно, что такая элементарная операция выполняется с вызовом кучи подпрограмм.
E-mail: info@telesys.ru