Re: О сортировке. Функция next



Posted by Анатолий Таланин on December 15, 1998 at 11:31:02:

In Reply to: Re: О сортировке. Функция next posted by Аpкадий Водяник on December 15, 1998 at 02:56:31:

Хочу предложить вариант решения сортировки, традиционно применяемый нами. Задача применения такого механизма определяется необходимостью пользоваться фактамии в расчётах. В таких случаях вариант Аркадия не всегда может быть применён.
ini.rpt - файл-коэффициент для инициализации данных.
# SOTRUD
fact СортСотр [n1 #] Код [n2 #]
#
Далее фрагмент любой формы или файл-коэффициента.
rewind facts
select СортСотр ?? Код ??
rewind buffer
N = 0
*
:m1
N = N + 1
search СортСотр ?? Код ?K
! [success] = 0
goto m2
!
AA = [set %,K,N]
goto m1
*
:m2
sort buffer 2
rewind buffer
N = 0
*
:m3
N = N + 1
search СортСотр ?? Код ?K
! [success] = 0
stop
!
AA = [set %,'СортФИО-'+[intsn N],K]
goto m3
Теперь отсортированные по наименованиям обозначения хранятся в экстрапараметрах и могут использоваться.
Полностью поддерживаю Сергея в предложении ввести перечисленные им операторы сравнения и функции наращивания значений индексов.


Пpишедшие ответы: