![]() |
|
|
Регистрация | << Правила форума >> | FAQ | Пользователи | Календарь | Поиск | Сообщения за сегодня | Все разделы прочитаны |
![]() |
|
Опции темы | Поиск в этой теме | Опции просмотра |
#1
|
|||
|
|||
![]() Мне нужна программа ,или может у кого есть готовая.
Суть программы. Я пишу в мемо цифры,или едит как удобнее,такие цифры 9.72 11.68 7.57 6.28 4.91 5.50 и тд далее я задаю границы ,например: 4.90;5.90 и программа должна посчитать сколько входят в цифр в эту границу или какие цифры. Или что ни будь подобное подскажите,буду очень благодарен. |
#2
|
||||||||||||
|
||||||||||||
![]() мой друг написал мне вот это ,но я не смог разобраться ,цитирую:
Кидаешь на форму два едита для границ и едит для чисел и кнопку, для старта программы Дальше объявляешь переменную str типа string (туда скинем твой массив чисел), переменную типа a real (текущее обрабатываемое число), переменную типа k integer (количество чисел). Код:
В событии кнопки OnClick пишешь код для обнуления переменной количества чисел. Код:
Код:
дальше будем резать строку Код:
у нас осталось последнее число в переменной str (если в конце строки не было пробела) проверяем его Код:
можно использовать showmessage, но я сделаю так: Код:
1 и 2 скрипт я написал,а вот что ниже вставлять не пойму куда |
#3
|
|||
|
|||
![]() А я так понимаю, что все это вставлять в обработчик нажатия кнопки.
|
#4
|
|||
|
|||
![]() Код:
вот так вот? |
#5
|
||||
|
||||
![]() Код:
изначально: Edit1 = 9.72 11.68 7.57 6.28 4.91 5.50 Edit2 = 4.90 Edit3 = 5.90 Edit4 = пятница Пишу программы за еду. __________________ |
#6
|
|||
|
|||
![]() этот код у вас работает?
у меня 8 версия вставил скрипт,и он выделил красным это DecimalSeparator:='.'; |
#7
|
|||
|
|||
![]() или сможете сделать исходник,или саму программу?
|
#8
|
||||
|
||||
![]() Набранное вами сообщение слишком короткое. Увеличьте ваше сообщение до 10 символов.
Пишу программы за еду. __________________ |
#9
|
|||
|
|||
![]() хорошая программа,вот почему скрипт у меня не хочет работать,вот почему интересно,у меня 8 версия
|
#10
|
||||
|
||||
![]() ну разберись, я версию 8 и в глаза не видел
![]() Пишу программы за еду. __________________ |
#11
|
||||
|
||||
![]() А никто не видел, ее в природе похоже не существует. Видимо XE8 имеется ввиду, только вот XE8 это уже 22 версия
![]() Жизнь такова какова она есть и больше никакова. Помогаю за спасибо. |
#12
|
|||
|
|||
![]() Ну я ее видел.
Та же семерка, только компайлер немного другой - под .Net собирает. |