|
|
Регистрация | << Правила форума >> | FAQ | Пользователи | Календарь | Поиск | Сообщения за сегодня | Все разделы прочитаны |
|
Опции темы | Поиск в этой теме | Опции просмотра |
#1
|
|||
|
|||
Найти среднее между 2 числами
Здравствуйте формучане..
Имеется 60 чисел от 0 до 6000000. Пытаюсь сделать, чтобы когда пользователь вводит число в edit, то программа искала среднее между 2 числами.К примеру Введено в edit число 8765 Ведется поиск. Если число вошло в диапозон edit > '8000' и edit < '10000' то выполнялось любое действие... Пытался сделать так: Цитата:
но если ввести число 800 к примеру, софт не срабатывает |
#2
|
|||
|
|||
strtoint
inttostr |
#3
|
|||
|
|||
Спасибо, помогло
|
#4
|
||||
|
||||
А теперь введите в Edit вместо числа какую-нибудь абракадабру - и узнаете о себе много нового
Оставайтесь хорошими людьми... VK id2634397, ds [at] phoenix [dot] dj |
#5
|
||||
|
||||
используй лучше компонент TSpinEdit, если он не устраивает, то фильтруй вводимые символы в TEdit, к примеру так:
Код:
procedure TForm1.Edit1KeyPress(Sender: TObject; var Key: Char); begin if Not (Key in ['0'..'9', #8])then Key:=#0; end; уволен в запас!!! |
#6
|
||||
|
||||
Mask.TMaskEdit
Пишу программы за еду. __________________ |