Размерность массива

[Дед Пахом]

Я как модератор предупреждаю: если и дальше здесь один будет предлагать идиотские советы, а другой их претворять в жизнь и рапортовать о результатах, я эту тему закрою и удалю.

[dsabitov]

Дед Пахом - видимо Вы знаете как решить мой вопрос?

[Дед Пахом]

само собой.
Непонятно, зачем копировать массив из одного места в другое, почему нельзя пользоваться уже готовым? Например,

Код: Выделить всё

sa                      &stat_array
elementAddress  LONG, AUTO

  CODE
  LOOP aIndex = 1 to array_size
    !-- находим адрес очередного эл-та массива
    elementAddress  = array_address + (aIndex - 1) * SIZE(stat_array)
    !-- получаем эл-т
    sa &= (elementAddress)
    !-- обрабатываем
    MESSAGE('Alias '& aIndex &' = ' & CLIP(sa['& aIndex &'].Alias) & '. Date = ' & sa['& aIndex &'].Date & '. Name = ' & CLIP(sa['& aIndex &'].Name) & '. Position = ' & sa['& aIndex &'].Position & '. Status = ' & sa['& aIndex &'].Status)
  END

[dsabitov]

Уважаемый Дед Пахом!
Спасибо за дельный совет!
С некоторыми доработками - работает!!!!

[Дед Пахом]

На всякий случай ошибку свою исправлю:
в MESSAGE() справа от знаков равенства должно быть не "sa['& aIndex &'].Status" и т.д., а просто поля sa.Status и т.д., это я замену текста сделал не глядя.

[dsabitov]

IkSoft! Как с Вами связаться? Личные сообщения не получается отправить...