При введении значения в Edit1 и Edit5 получить с помощью расчета по формуле значение в Edit2

@Olezhk · Регистрация: 07.11.2011

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

Всем привет! Делаю программу расчета редуктора. Возникла проблема.Необходимо при введении Значения в Edit1 и Edit5 получить с помощью расчета по формуле значение в Edit2. Можно кусочек текста реализации сей причуды? Картинка во вложении.

@i8085 · 09.05.2014, 22:25

Olezhk, расчитывайте в процедуре Edit1.Change. Для Edit5OnChange (в Events) присвойте Edit1.Change.
Процедура будет вызываться при вводе каждой цифры как в Edit1, так и в Edit5, а в Edit2 будет отображаться текущий результат сразу, в процессе ввода. То, что будут отображаться промежуточные неправильные значения - не страшно. Зато не надо будет делать кнопку "Расчитать".
Для того, чтобы исключить "вываливание" программы при ошибках ввода, используйте для чтения значений StrToIntDef(Edit.Text, 0). Проверяйте на "0" перед расчётом, если в Edit1 или в Edit2 введено некорректное значение (StrToIntDef вернула "0"), то расчёт не производится, Edit2.Text:= '' (стирать).

@krapotkin · 09.05.2014, 23:07

если честно, более грамотным подходом является наличие кнопки "Рассчитать"

при этом, все, что сказано про ошибки ввода, несомненно верно...

@Olezhk · 09.05.2014, 23:17 **[ТС]**

Процедура Edit1Change, без точки между Edit1 и Change? Где находится Events?Расскажите пожалуйста поподробнее. Я в этом деле новичок)

@krapotkin · 09.05.2014, 23:38

нужен хотя бы минимальный учебник ((

двойной щелчок по Edit1 создаст procedure Edit1change(Sender:TObject); и назначит ее на обработку изменений в Edit1.

закладка Events - в инспекторе объектов

@Olezhk · 10.05.2014, 08:41 **[ТС]**

БОльшое спасибо за разъяснения!

@Olezhk 0 / 0 / 0 Регистрация: 07.11.2011 Сообщений: 10
		1
	При введении значения в Edit1 и Edit5 получить с помощью расчета по формуле значение в Edit2 09.05.2014, 21:44. Показов 1006. Ответов 5 Метки нет (Все метки) Всем привет! Делаю программу расчета редуктора. Возникла проблема.Необходимо при введении Значения в Edit1 и Edit5 получить с помощью расчета по формуле значение в Edit2. Можно кусочек текста реализации сей причуды? Картинка во вложении. Миниатюры 0

@i8085 3218 / 2361 / 540 Регистрация: 11.09.2009 Сообщений: 8,604
	09.05.2014, 22:25	2
	Olezhk, расчитывайте в процедуре Edit1.Change. Для Edit5OnChange (в Events) присвойте Edit1.Change. Процедура будет вызываться при вводе каждой цифры как в Edit1, так и в Edit5, а в Edit2 будет отображаться текущий результат сразу, в процессе ввода. То, что будут отображаться промежуточные неправильные значения - не страшно. Зато не надо будет делать кнопку "Расчитать". Для того, чтобы исключить "вываливание" программы при ошибках ввода, используйте для чтения значений StrToIntDef(Edit.Text, 0). Проверяйте на "0" перед расчётом, если в Edit1 или в Edit2 введено некорректное значение (StrToIntDef вернула "0"), то расчёт не производится, Edit2.Text:= '' (стирать). 0

@krapotkin 5785 / 4527 / 1431 Регистрация: 14.04.2014 Сообщений: 20,157 Записей в блоге: 20
	09.05.2014, 23:07	3
	если честно, более грамотным подходом является наличие кнопки "Рассчитать" при этом, все, что сказано про ошибки ввода, несомненно верно... 0

@Olezhk 0 / 0 / 0 Регистрация: 07.11.2011 Сообщений: 10
	09.05.2014, 23:17 [ТС]	4
	Процедура Edit1Change, без точки между Edit1 и Change? Где находится Events?Расскажите пожалуйста поподробнее. Я в этом деле новичок) 0

@krapotkin 5785 / 4527 / 1431 Регистрация: 14.04.2014 Сообщений: 20,157 Записей в блоге: 20
	09.05.2014, 23:38	5
	нужен хотя бы минимальный учебник (( двойной щелчок по Edit1 создаст procedure Edit1change(Sender:TObject); и назначит ее на обработку изменений в Edit1. закладка Events - в инспекторе объектов 0

@Olezhk 0 / 0 / 0 Регистрация: 07.11.2011 Сообщений: 10
	10.05.2014, 08:41 [ТС]	6
	БОльшое спасибо за разъяснения! 0