взятие инофрмации с edit

@салома · Регистрация: 08.09.2011

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

добрый день всем
Допустим есть 2 edit и label
как сделать что бы при вводе цифр в edit их сумма выводилась в label
но без нажатия кнопок
я пытался сделать через таймер, но
эту функцию в таймер не насунуть

Код

x:=strtofloat(edit2.text);

я короче незнаю

@reiteriX · 19.03.2012, 08:35

Событие onKeyPress у Edit'a используй или onChange у Edit'a.

В этом событии проходишь по строке и складываешь числа. Потом спокойно отображаешь сумму в Label

@салома · 19.03.2012, 10:11 **[ТС]**

а пример*?

Добавлено через 3 минуты
разобрался спасибо)

Добавлено через 58 минут

Код

procedure TForm1.Timer1Timer(Sender: TObject);
begin
if IntToStr(StrToInt(Edit2.Text)+StrToInt(Edit3.Text)) > IntToStr(StrToInt(Edit1.Text)) then
showmessage ('Cумма побед и поражений не может превышать общее кол-во боев');
Exit;

а почему не работает это?
куда мне еще засунуть это условие, что бы его постоянно проверяло?

@Puporev · 19.03.2012, 10:18

Сообщение от салома

куда мне еще засунуть это условие

Да туда же где выводишь в Label

@салома · 19.03.2012, 10:27 **[ТС]**

там уже и так довольно большой цикл условий) там уже никак

@Puporev · 19.03.2012, 10:29

от двух строк ничего не будет, зато все будет контролироваться по месту, таймер-то тут при чем?

@салома 21 / 19 / 5 Регистрация: 08.09.2011 Сообщений: 370
		1
	взятие инофрмации с edit 19.03.2012, 07:42. Показов 984. Ответов 5 Метки нет (Все метки) добрый день всем Допустим есть 2 edit и label как сделать что бы при вводе цифр в edit их сумма выводилась в label но без нажатия кнопок я пытался сделать через таймер, но эту функцию в таймер не насунуть Код x:=strtofloat(edit2.text); я короче незнаю 0

@reiteriX 685 / 241 / 13 Регистрация: 02.04.2009 Сообщений: 692
	19.03.2012, 08:35	2
	Событие onKeyPress у Edit'a используй или onChange у Edit'a. В этом событии проходишь по строке и складываешь числа. Потом спокойно отображаешь сумму в Label 1

@салома 21 / 19 / 5 Регистрация: 08.09.2011 Сообщений: 370
	19.03.2012, 10:11 [ТС]	3
	а пример? Добавлено через 3 минуты* разобрался спасибо) Добавлено через 58 минут Код procedure TForm1.Timer1Timer(Sender: TObject); begin if IntToStr(StrToInt(Edit2.Text)+StrToInt(Edit3.Text)) > IntToStr(StrToInt(Edit1.Text)) then showmessage ('Cумма побед и поражений не может превышать общее кол-во боев'); Exit; а почему не работает это? куда мне еще засунуть это условие, что бы его постоянно проверяло? 0

@Puporev Почетный модератор 64300 / 47595 / 32743 Регистрация: 18.05.2008 Сообщений: 115,181
	19.03.2012, 10:18	4
	Сообщение от салома куда мне еще засунуть это условие Да туда же где выводишь в Label 0

@салома 21 / 19 / 5 Регистрация: 08.09.2011 Сообщений: 370
	19.03.2012, 10:27 [ТС]	5
	там уже и так довольно большой цикл условий) там уже никак 0

@Puporev Почетный модератор 64300 / 47595 / 32743 Регистрация: 18.05.2008 Сообщений: 115,181
	19.03.2012, 10:29	6
	от двух строк ничего не будет, зато все будет контролироваться по месту, таймер-то тут при чем? 0