В
Все
М
Математика
О
ОБЖ
У
Українська мова
Д
Другие предметы
Х
Химия
М
Музыка
Н
Немецкий язык
Б
Беларуская мова
Э
Экономика
Ф
Физика
Б
Биология
О
Окружающий мир
Р
Русский язык
У
Українська література
Ф
Французский язык
П
Психология
А
Алгебра
О
Обществознание
М
МХК
В
Видео-ответы
Г
География
П
Право
Г
Геометрия
А
Английский язык
И
Информатика
Қ
Қазақ тiлi
Л
Литература
И
История
Exzify
Exzify
28.02.2021 20:22 •  Информатика

Нужна по лазарусу/делфи. делаю калькулятор и хочу, чтобы в memo выводились все мои действия например 4+3=7-чтобы это выводилось в не ответы,а !

Показать ответ
Ответ:
ryvdgruhcdgghhhFrubf
ryvdgruhcdgghhhFrubf
01.10.2020 22:42
Введи глобальную переменную строкового типа и добавь в процедуры кнопок, чтобы в эту строку при нажатии на "4" добавлялась четвёрка, нажатие на "+" - плюс, а при нажатии на "=" - знак равенства и, собственно, ответ, после чего эта строка выводилась в Memo и переменная очищалась 
0,0(0 оценок)
Ответ:
SilvAqualius
SilvAqualius
01.10.2020 22:42
Трудно сказать не видя структуры твоего калькулятора. Если у тебя два поля для ввода чисел (edit1 и edit2), а результат записываешь в Memo1 (кстати, а зачем именно тип Memo?), то можно сделать следующим образом (пример для кнопок "+" и "-")

procedure TForm1.PlusClick(Sender: TObject);
var x,y:real;
r:string;
begin
   val(edit1.Text,x);
   val(edit2.Text,y);
   str(x+y,r);
  Memo1.Lines[0]:=edit1.Text+'+'+edit2.Text+'='+r;
end;

procedure TForm1.MinusClick(Sender: TObject);
var x,y:real;
r:string;
begin
   val(edit1.Text,x);
   val(edit2.Text,y);
   str(x-y,r);
  Memo1.Lines[0]:=edit1.Text+'-'+edit2.Text+'='+r;
end; 
0,0(0 оценок)
Популярные вопросы: Информатика
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota Оформи подписку
logo
Начни делиться знаниями
Вход Регистрация
Что ты хочешь узнать?
Спроси ai-бота