Вверх ↑
Этот топик читают: Гость
Ответов: 75
Рейтинг: 2
#1: 2017-05-13 10:43:11 ЛС | профиль | цитата
Столкнулся с какой-то ерундой при сортировке массива целых чисел. После сортировки числа меньше десяти превращаются в нули. Зашёл в тупик. То ли лыжи не едут, то ли я... чего-то не понял

Add(MainForm,2953706,266,175)
{
Left=600
Top=100
Width=223
Height=354
link(onCreate,3103972:doRandomize,[(315,195)(315,111)])
}
Add(Memo,5327487,504,252)
{
Left=125
Top=40
Height=200
Name="Отсортированные числа"
AddType=1
}
Add(Button,10965268,322,217)
{
Left=75
Top=260
Height=25
link(onClick,922529:doEvent1,[])
}
Add(Random,3103972,343,98)
{
link(onRandom,1720355:doAdd,[])
}
Add(For,13102013,266,98)
{
Start=1
End=10
link(onEvent,3103972:doRandom,[])
link(onStop,734784:doSort,[(305,111)(305,167)])
}
Add(ArraySort,734784,427,161)
{
ArrayType=1
link(onEndSort,12742347:doEnum,[(472,167)(472,204)(415,204)(415,223)])
link(Array,1720355:Array,[])
}
Add(ArrayEnum,12742347,427,217)
{
link(onItem,5327487:doAdd,[(481,223)(481,258)])
link(Array,734784:ArraySort,[])
}
Add(Memo,1720355,413,98)
{
Left=25
Top=40
Height=200
Name="10 случайных чисел"
}
Add(Hub,922529,371,217)
{
OutCount=3
link(onEvent1,1720355:doClear,[(399,223)(399,111)])
link(onEvent2,5327487:doClear,[(416,230)(416,265)])
link(onEvent3,13102013:doFor,[(398,237)(398,266)(254,266)(254,104)])
}


--- Добавлено в 2017-05-13 10:53:02

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

Редактировалось 5 раз(а), последний 2017-05-13 10:55:29
карма: 2

0
Ответов: 9906
Рейтинг: 351
#2: 2017-05-13 11:02:07 ЛС | профиль | цитата
Не подтверждается:
Tri-j.png

Редактировалось 2 раз(а), последний 2017-05-13 11:04:00
карма: 9

0
Ответов: 75
Рейтинг: 2
#3: 2017-05-13 11:32:49 ЛС | профиль | цитата
Похоже, у меня какой-то "хромой" компонент. Попробую поменять
карма: 2

0
Ответов: 75
Рейтинг: 2
#4: 2017-05-19 11:30:11 ЛС | профиль | цитата
Я уже плюнул на это дело, загадку природы. Потом решил все-таки устранить эту ерунду. Снёс и штатный и альтернативный Хайасм. Загрузил с сайта по-новой. Сделал обновление элементов с SVN. Не помогло. И там, и там одна картина:
2525.jpg
252525.jpg
Есть хотя-бы какие-то предположения?
карма: 2

0
Ответов: 322
Рейтинг: 8
#5: 2017-05-19 11:50:06 ЛС | профиль | цитата
Tri-j писал(а):
И там, и там одна картина:

У меня то-же самое выдаёт через раз, то нормально, то выдаёт нули.
карма: 0

0
Ответов: 758
Рейтинг: 112
#6: 2017-05-19 12:01:58 ЛС | профиль | цитата
Подтверждаю

карма: 1

0
Разработчик
Ответов: 26155
Рейтинг: 2127
#7: 2017-05-19 12:15:18 ЛС | профиль | цитата
Раз 100 жал на кнопку, ни фига не получил бажный результат

SortInteger_001.png

Редактировалось 1 раз(а), последний 2017-05-19 12:15:29
карма: 22

0
Ответов: 8926
Рейтинг: 823
#8: 2017-05-19 12:36:39 ЛС | профиль | цитата
nesco писал(а):
100 жал на кнопку
Аналогично, более того параллельно сортировал из Memo и ListBox
карма: 19

0
Ответов: 4630
Рейтинг: 749
#9: 2017-05-19 13:01:50 ЛС | профиль | цитата
Тоже не получил бага - тестировал на разных компиляторах, но на Windows 2000.
карма: 26

0
Ответов: 322
Рейтинг: 8
#10: 2017-05-19 13:57:22 ЛС | профиль | цитата
Из 15ти нажатых раз вышло 3 глюка
1.jpg
2.jpg
3.jpg
карма: 0

0
Ответов: 321
Рейтинг: 10
#11: 2017-05-19 15:19:53 ЛС | профиль | цитата
Тоже не получил бага - тестировал на разных компиляторах, но на Windows 7.
карма: 1

0
Ответов: 817
Рейтинг: 52
#12: 2017-05-19 16:23:44 ЛС | профиль | цитата
Картинка.png
Ноль ловлю примерно один раз из 10-15 попыток
Win 8.1 x64 со всеми последними обновлениями, установлена вчера.
В ОС установлен только HiAsm и MSOffice 2010 x86 со всеми последними обновлениями.
Компилятор стандартный Delphi из HiAsm.
карма: 1

0
Ответов: 4630
Рейтинг: 749
#13: 2017-05-19 16:25:59 ЛС | профиль | цитата
Ну, на твоей картинке 0 как раз уместен. Имелось в виду, что в правом списке некоторые числа из левого заменяются 0-ми.

Редактировалось 1 раз(а), последний 2017-05-19 16:26:10
карма: 26

0
Ответов: 817
Рейтинг: 52
#14: 2017-05-19 16:39:01 ЛС | профиль | цитата
Вот поймал красивый вариант, причем с первого раза
00.png
карма: 1

0
Ответов: 2267
Рейтинг: 676
#15: 2017-05-19 19:57:58 ЛС | профиль | цитата
ХP SP3 как на FPC, так и на другом компиляторе все нормально (без замен нулями). Жал по многу раз.
карма: 11

0
Сообщение
...
Прикрепленные файлы
(файлы не залиты)