Clarion, Clarion 7
Модератор: Дед Пахом
Правила форума
При написании вопроса или обсуждении проблемы, не забывайте указывать версию Clarion который Вы используете.
А так же пользуйтесь спец. тегами при вставке исходников!!!
Дед Пахом
Старичок
Сообщения: 3303 Зарегистрирован: 07 Июль 2005, 16:51
Откуда: Москва, Россия
Благодарил (а): 15 раз
Поблагодарили: 51 раз
Контактная информация:
Сообщение
Дед Пахом » 21 Июль 2014, 3:03
Я как модератор предупреждаю: если и дальше здесь один будет предлагать идиотские советы, а другой их претворять в жизнь и рапортовать о результатах, я эту тему закрою и удалю.
С уважением, ДП
Дед Пахом
dsabitov
Посетитель
Сообщения: 44 Зарегистрирован: 02 Апрель 2011, 12:30
Сообщение
dsabitov » 21 Июль 2014, 9:16
Дед Пахом - видимо Вы знаете как решить мой вопрос?
dsabitov
Дед Пахом
Старичок
Сообщения: 3303 Зарегистрирован: 07 Июль 2005, 16:51
Откуда: Москва, Россия
Благодарил (а): 15 раз
Поблагодарили: 51 раз
Контактная информация:
Сообщение
Дед Пахом » 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
С уважением, ДП
Дед Пахом
dsabitov
Посетитель
Сообщения: 44 Зарегистрирован: 02 Апрель 2011, 12:30
Сообщение
dsabitov » 21 Июль 2014, 17:22
Уважаемый Дед Пахом!
Спасибо за дельный совет!
С некоторыми доработками - работает!!!!
dsabitov
Дед Пахом
Старичок
Сообщения: 3303 Зарегистрирован: 07 Июль 2005, 16:51
Откуда: Москва, Россия
Благодарил (а): 15 раз
Поблагодарили: 51 раз
Контактная информация:
Сообщение
Дед Пахом » 21 Июль 2014, 17:57
На всякий случай ошибку свою исправлю:
в MESSAGE() справа от знаков равенства должно быть не "sa['& aIndex &'].Status" и т.д., а просто поля sa.Status и т.д., это я замену текста сделал не глядя.
С уважением, ДП
Дед Пахом
dsabitov
Посетитель
Сообщения: 44 Зарегистрирован: 02 Апрель 2011, 12:30
Сообщение
dsabitov » 13 Август 2014, 12:12
IkSoft! Как с Вами связаться? Личные сообщения не получается отправить...
dsabitov