Калькулятор: ввод второго числа в одном поле без кейсоф

@Delta · Регистрация: 17.11.2009

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

Интересно возможно ли это? знания: паскаль, основы делфи.
загвоздка в вводе второго числа.
ввели первое число, запомнили его, очистили поле эдит1. а второе число?
мб можно использовать процедуры в процедуре?

@Puporev · 03.11.2010, 22:17

Может так.

Delphi

n:=Strtoint(Edit1.text);
Edit1.clear;
Edit1.Setfocus;
m:=Strtoint(Edit1.text);

@Delta · 03.11.2010, 22:18 **[ТС]**

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

Может так.

Delphi

n:=Strtoint(Edit1.text);
Edit1.clear;
Edit1.Setfocus;
m:=Strtoint(Edit1.text);

нене, мы вводим клацая по кнопкам 1,2,3,4,5,6,7 и тд. для каждой кнопки своя процедура

@Puporev · 03.11.2010, 22:47

Delphi

procedure TForm1.Button3Click(Sender: TObject);
begin
if Memo1.Text<>'0' then//если в поле не ноль
Memo1.Text:=Memo1.Text+'1'
else Memo1.Text:='1';//если ноль
end;

Добавлено через 21 секунду
Это пример для цифры 1.

@Delta · 03.11.2010, 23:22 **[ТС]**

у меня следующее для кнопки номер 1

Delphi

procedure TForm1.Button3Click(Sender: TObject);
begin
edit1.Text:=edit1.Text+'1'
end;

'это для первого числа, далее поидеи мы нажимаем на сложение, присваивается введеное значение переменной, очищается поле ввода (и вот тут загвоздка) вводим второе значение а по нажатию кнопки равно считаем

@Bazhal · 04.11.2010, 00:29

А какие тут могут быть загвоздки? Вводим первое число, как только нажали на "+", записали его в глобальную переменную, очистили поле ввода.

Delphi

var iBuffer : Integer;
 
...
 
procedure TMainForm.PlusButtonClick(Sender: TObject);
begin
  iBuffer := StrToInt( Edit1.Text );
  Edit1.Clear;
end;

Bвели второе число, как только нажали на "=", сложили второе число с числом, сохраненным в глобальной переменной, и вывели его в поле ввода.

Delphi

procedure TMainForm.SummButtonClick(Sender: TObject);
begin
  Edit1.Text := IntToStr( StrToInt( Edit1.Text ) + iBuffer );
end;

@Delta · 04.11.2010, 20:21 **[ТС]**

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

Bвели второе число

и как это сделать))

@Bazhal · 08.11.2010, 11:02

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

и как это сделать))

Да точно также как и первое. В чем проблема то? Хоть убей не понимаю. Ты или конкретно скажи в чем проблема или код приведи.

@Delta 11 / 10 / 2 Регистрация: 17.11.2009 Сообщений: 126
		1
	Калькулятор: ввод второго числа в одном поле без кейсоф 03.11.2010, 22:11. Показов 1384. Ответов 7 Метки нет (Все метки) Интересно возможно ли это? знания: паскаль, основы делфи. загвоздка в вводе второго числа. ввели первое число, запомнили его, очистили поле эдит1. а второе число? мб можно использовать процедуры в процедуре? 0

@Delta 11 / 10 / 2 Регистрация: 17.11.2009 Сообщений: 126
	04.11.2010, 20:21 [ТС]	7
	Сообщение от Bazhal Bвели второе число и как это сделать)) 0

@Bazhal 23 / 23 / 3 Регистрация: 27.07.2010 Сообщений: 71
	08.11.2010, 11:02	8
	Сообщение от Delta и как это сделать)) Да точно также как и первое. В чем проблема то? Хоть убей не понимаю. Ты или конкретно скажи в чем проблема или код приведи. 0