Страница 2 из 2

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

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

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

Добавлено: 21 Июль 2014, 9:16
dsabitov
Дед Пахом - видимо Вы знаете как решить мой вопрос?

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

Добавлено: 21 Июль 2014, 12:57
Дед Пахом
само собой.
Непонятно, зачем копировать массив из одного места в другое, почему нельзя пользоваться уже готовым? Например,

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

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

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

Добавлено: 21 Июль 2014, 17:22
dsabitov
Уважаемый Дед Пахом!
Спасибо за дельный совет!
С некоторыми доработками - работает!!!!

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

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

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

Добавлено: 13 Август 2014, 12:12
dsabitov
IkSoft! Как с Вами связаться? Личные сообщения не получается отправить...