TSpinEdit, ввод дробных чисел

@Redisodix · Регистрация: 11.03.2013

Студворк — интернет-сервис помощи студентам

Как мне реализовать ввод дробных чисел? Точнее это я реализовал, но при расчете (запущена программа) возникает ошибка. Где и как прописать разрешение на ввод нецелых чисел?

@Lelik-pahan · 21.04.2017, 09:13

Redisodix, У TSpinEdit параметр Value объявлен как int, т. е. записать в этот компонент дробное число невозможно.

Ты можешь использовать связку TEdit и TSpinButton
В обработчиках нажатия кнопок TSpinButton напиши:

C++
1
2
3
4
5
6
7
8
9
void __fastcall TForm1::SpinButton1DownClick(TObject *Sender)
{
    Edit1->Text = FloatToStr(Edit1->Text.ToDouble() - 0.1);
}
//---------------------------------------------------------------------------
void __fastcall TForm1::SpinButton1UpClick(TObject *Sender)
{
    Edit1->Text = FloatToStr(Edit1->Text.ToDouble() + 0.1);
}

Если при каких-то значениях в эдите будет появляться мусор, то используй вместо FloatToStr функцию FloatToStrF

@nick42 · 21.04.2017, 09:17

Насколько мне известно, компонент SpinEdit оперирует с целыми числами. Если оч. хочется, можно использовать компонент UpDown в паре с двумя эдитами. Допустим, с UpDown в связке Edit2, а Edit3 его "накрывает"; и тогда на изменение Edit2 пишем__

C++
1
2
3
4
void __fastcall TForm1::Edit2Change(TObject *Sender)
{ 
     Edit3->Text = String().sprintf("%.2g",(float)Edit2->Text.ToInt()/100);
}

(Это для манипулирования в области сотых долей. Аналогично и для других дробных величин).

@Redisodix · 21.04.2017, 09:28 **[ТС]**

Lelik, у меня немного другая ситуация. Я использую spinedit исключительно из за того, что там можно легко поставить ограничение на ввод (предел)
Кнопочки вверх вниз вообще убрал, т.е. выглядит как обычный tedit
Что тут посоветуете?

@Lelik-pahan · 21.04.2017, 10:02

Redisodix, поставь на обработчики эдита такой код

C++
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
void __fastcall TForm1::Edit1KeyPress(TObject *Sender, System::WideChar &Key)
{
    TEdit *edit = (TEdit *)Sender;
    if (Key >= '0' && Key <= '9')
        return;
    else if (Key == 45)  //минус
    {
        if (!edit->SelStart && !edit->Text.Pos('-'))
            return;
    }
    else if (Key == '.' || Key == ',')
    {
        Key = FormatSettings.DecimalSeparator;
        if (edit->SelStart && !edit->Text.Pos(Key))
            return;
    }
    else if (Key == VK_BACK)
        return;
    else if (Key == 0x03 || Key == 0x16 || Key == 0x18) //ctrl + c = 0x03, ctrl + v = 0x16, ctrl + x = 0x18
        return;
    else if (Key == 0x01)  //ctrl + a = 0x01
    {
        edit->SelectAll();
        return;
    }
 
    Beep(2500, 20);
    Key = 0;
}
//---------------------------------------------------------------------------
void __fastcall TForm1::Edit1Exit(TObject *Sender)
{
    TEdit *edit = (TEdit *)Sender;
    edit->Text = edit->Text.Trim();
 
    double tstf;
    if(!TryStrToFloat(edit->Text, tstf))
    {
        if(FormatSettings.DecimalSeparator == ',')
            edit->Text = StringReplace(edit->Text, L".", FormatSettings.DecimalSeparator, TReplaceFlags() << rfReplaceAll);
        else
            edit->Text = StringReplace(edit->Text, L",", FormatSettings.DecimalSeparator, TReplaceFlags() << rfReplaceAll);
 
        if(!TryStrToFloat(edit->Text, tstf))
        {
            Beep(2500, 20);
            edit->Text = L"0";
            return;  //если в эдите не число. выполнение обработчика завершится здесь
        }
    }
 
    double minVal = -0.123, maxVal = 456.789;
 
    if (tstf < minVal)
        edit->Text = FloatToStr(minVal);
    else if (tstf > maxVal)
        edit->Text = FloatToStr(maxVal);
}

он не позволит вводить не число и ограничит значения заданными тобой minVal и maxVal

Добавлено через 1 минуту
если у тебя старый билдер, он может ругаться на FormatSettings.DecimalSeparator
в этом случае замени просто на DecimalSeparator

@Redisodix · 21.04.2017, 11:13 **[ТС]**

Предел значений работает, запятая ставится, все хорошо, правда минус не нужен
Но при нажатии на баттон выскакивает ошибка, если в эдите было не целое число

Добавлено через 10 минут
Проблема решена, причина - моя невнимательность. Выше в коде у меня переменная эдита была определена как strtoint, заменил на strtofloat и о чудо)
Теперь остается еще небольшой вопрос. Как поставить запрет на ввод в эдит нуля в начале? Нужно запретить ввод таких чисел, Как 01 и пр. Значение должно начинаться не с нуля, если конечно же это не дробь, к примеру 0,3

Добавлено через 12 минут
Проблема решена

Добавлено через 8 минут
Теперь вопрос по существу - что нужно изменить в данном коде, чтобы пользователь мог вводить ТОЛЬКО числа? Без запятых, минусов и пр.?

@Lelik-pahan · 21.04.2017, 11:17

Сообщение от Redisodix

правда минус не нужен

удали из кода блок if else, соответствующий минусу

Сообщение от Redisodix

Теперь вопрос по существу - что нужно изменить в данном коде, чтобы пользователь мог вводить ТОЛЬКО числа? Без запятых, минусов и пр.?

а вот это самое лёгкое. Убрать весь код и выставить у эдита свойство NumbersOnly в true

если при этом нужно также ограничить минимум и максимум, то в OnExit оставь соответствующую проверку с заменой

@Redisodix · 21.04.2017, 11:26 **[ТС]**

Прекрасно)
Забавно, с каждом кликом все новые проблемы...
Но эта уже наверное последняя
Есть предел от 1 до 100
Если ввести в эдит 0, то значение изменится на единицу. Все вроде бы хорошо
Но если ввести 01, то так и останется, хоть 000001
При этом программа воспринимает значение 0000001 как единицу
Собственно как избавится от этого?? Запретить эти нули

@Lelik-pahan · 21.04.2017, 11:38

Сообщение от Redisodix

Но если ввести 01, то так и останется, хоть 000001
При этом программа воспринимает значение 0000001 как единицу
Собственно как избавится от этого?? Запретить эти нули

На OnExit напиши

C++
1
Edit1->Text = IntToStr(Edit1->Text.ToInt());

Добавлено через 2 минуты
Ещё можешь на OnKeyPress написать

C++
1
2
3
TEdit *edit = (TEdit *)Sender;
if (Key >= '0' && !edit->SelStart)
    Key = 0;

@Redisodix · 21.04.2017, 11:48 **[ТС]**

Первый вариант не подходит, поскольку там у меня дельные значения
Воспользовался вторым вариантом - никак реакции

@Lelik-pahan · 21.04.2017, 11:56

Сообщение от Redisodix

там у меня дельные значения

что значит дельные?

Во втором варианте опечатался, должно быть == вместо >=
Но не работает у тебя, видимо, по какой-то другой причине

@Redisodix · 21.04.2017, 12:00 **[ТС]**

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

@Lelik-pahan · 21.04.2017, 12:03

Сообщение от Redisodix

Не дельные, а дробные

ну так замени преобразование String -> int -> String на String -> double -> String

и в обработке OnClick отпадёт необходимость

@Redisodix · 21.04.2017, 12:15 **[ТС]**

Тут моего мышления уже не хватает
Сделал так Edit1->Text = IntToStr (Edit1->Text .ToDouble())
Естественно выдает ошибку

Добавлено через 3 минуты
Прошу прощения, вообще не то написал, Это первый вариант, а мы про второй говорим
Ну тут у меня еще больше вопросов. Как заменить это преобразование

@Lelik-pahan · 21.04.2017, 12:24

На OnExit

C++
1
Edit1->Text = FloatToStr(Edit1->Text.ToDouble());

Добавлено через 5 минут
А но OnKeyPress оставь обработчик как тут

@Redisodix · 21.04.2017, 12:33 **[ТС]**

Все получилось
Огромное вам спасибо за помощь!

Новые блоги и статьи Все статьи Все блоги /
изучаю kubernetes lagorue 13.01.2026 А пригодятся-ли мне знания kubernetes в России?	сукцессия микоризы: основная теория в виде двух уравнений. anaschu 11.01.2026 https:/ / rutube. ru/ video/ 7a537f578d808e67a3c6fd818a44a5c4/	WordPad для Windows 11 Jel 10.01.2026 WordPad для Windows 11 — это приложение, которое восстанавливает классический текстовый редактор WordPad в операционной системе Windows 11. После того как Microsoft исключила WordPad из. . .	Classic Notepad for Windows 11 Jel 10.01.2026 Old Classic Notepad for Windows 11 Приложение для Windows 11, позволяющее пользователям вернуть классическую версию текстового редактора «Блокнот» из Windows 10. Программа предоставляет более. . .
Почему дизайн решает? Neotwalker 09.01.2026 В современном мире, где конкуренция за внимание потребителя достигла пика, дизайн становится мощным инструментом для успеха бренда. Это не просто красивый внешний вид продукта или сайта — это. . .	Модель микоризы: классовый агентный подход 3 anaschu 06.01.2026 aa0a7f55b50dd51c5ec569d2d10c54f6/ O1rJuneU_ls https:/ / vkvideo. ru/ video-115721503_456239114	Owen Logic: О недопустимости использования связки «аналоговый ПИД» + RegKZR ФедосеевПавел 06.01.2026 Owen Logic: О недопустимости использования связки «аналоговый ПИД» + RegKZR ВВЕДЕНИЕ Введу сокращения: аналоговый ПИД — ПИД регулятор с управляющим выходом в виде числа в диапазоне от 0% до. . .	Модель микоризы: классовый агентный подход 2 anaschu 06.01.2026 репозиторий https:/ / github. com/ shumilovas/ fungi ветка по-частям. коммит Create переделка под биомассу. txt вход sc, но sm считается внутри мицелия. кстати, обьем тоже должен там считаться. . . .

@Redisodix 0 / 0 / 0 Регистрация: 11.03.2013 Сообщений: 80

	TSpinEdit, ввод дробных чисел 21.04.2017, 08:48. Показов 7035. Ответов 15 Метки нет (Все метки) Как мне реализовать ввод дробных чисел? Точнее это я реализовал, но при расчете (запущена программа) возникает ошибка. Где и как прописать разрешение на ввод нецелых чисел? 0

@Redisodix 0 / 0 / 0 Регистрация: 11.03.2013 Сообщений: 80
	21.04.2017, 09:28 [ТС]
	Lelik, у меня немного другая ситуация. Я использую spinedit исключительно из за того, что там можно легко поставить ограничение на ввод (предел) Кнопочки вверх вниз вообще убрал, т.е. выглядит как обычный tedit Что тут посоветуете? 0

@Redisodix 0 / 0 / 0 Регистрация: 11.03.2013 Сообщений: 80
	21.04.2017, 11:13 [ТС]
	Предел значений работает, запятая ставится, все хорошо, правда минус не нужен Но при нажатии на баттон выскакивает ошибка, если в эдите было не целое число Добавлено через 10 минут Проблема решена, причина - моя невнимательность. Выше в коде у меня переменная эдита была определена как strtoint, заменил на strtofloat и о чудо) Теперь остается еще небольшой вопрос. Как поставить запрет на ввод в эдит нуля в начале? Нужно запретить ввод таких чисел, Как 01 и пр. Значение должно начинаться не с нуля, если конечно же это не дробь, к примеру 0,3 Добавлено через 12 минут Проблема решена Добавлено через 8 минут Теперь вопрос по существу - что нужно изменить в данном коде, чтобы пользователь мог вводить ТОЛЬКО числа? Без запятых, минусов и пр.? 0

@Redisodix 0 / 0 / 0 Регистрация: 11.03.2013 Сообщений: 80
	21.04.2017, 11:26 [ТС]
	Прекрасно) Забавно, с каждом кликом все новые проблемы... Но эта уже наверное последняя Есть предел от 1 до 100 Если ввести в эдит 0, то значение изменится на единицу. Все вроде бы хорошо Но если ввести 01, то так и останется, хоть 000001 При этом программа воспринимает значение 0000001 как единицу Собственно как избавится от этого?? Запретить эти нули 0

@Redisodix 0 / 0 / 0 Регистрация: 11.03.2013 Сообщений: 80
	21.04.2017, 11:48 [ТС]
	Первый вариант не подходит, поскольку там у меня дельные значения Воспользовался вторым вариантом - никак реакции 0

@Redisodix 0 / 0 / 0 Регистрация: 11.03.2013 Сообщений: 80
	21.04.2017, 12:00 [ТС]
	Не дельные, а дробные Проблема решена не полностью Поскольку у меня дробные значения то могу использовать только второй вариант. Т.е. ввел запрет на ввод нуля в начале. Но есть проблема, теперь я не могу вводить числа, которые больше нуля но меньше единицы Можно это обойти? 0

@Redisodix 0 / 0 / 0 Регистрация: 11.03.2013 Сообщений: 80
	21.04.2017, 12:15 [ТС]
	Тут моего мышления уже не хватает Сделал так Edit1->Text = IntToStr (Edit1->Text .ToDouble()) Естественно выдает ошибку Добавлено через 3 минуты Прошу прощения, вообще не то написал, Это первый вариант, а мы про второй говорим Ну тут у меня еще больше вопросов. Как заменить это преобразование 0

@Redisodix 0 / 0 / 0 Регистрация: 11.03.2013 Сообщений: 80
	21.04.2017, 12:33 [ТС]
	Все получилось Огромное вам спасибо за помощь! 0