Нужна помощь по лазарусу/делфи. Делаю калькулятор и хочу, чтобы в memo выводились все мои действия например 4+3=7-чтобы это выводилось в memo!! НЕ
10-11 класс
|
ОТВЕТЫ,А ДЕЙСТВИЯ!!!
Введи глобальную переменную строкового типа и добавь в процедуры кнопок, чтобы в эту строку при нажатии на "4" добавлялась четвёрка, нажатие на "+" - плюс, а при нажатии на "=" - знак равенства и, собственно, ответ, после чего эта строка выводилась в Memo и переменная очищалась
Трудно сказать не видя структуры твоего калькулятора. Если у тебя два поля для ввода чисел (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;
Другие вопросы из категории
Вводится строка и символ. Определить количество
слов, содержащих введенный символ.
Читайте также
#include
#include
#include
int main()
{
const int n = 9;
float matr[n][n];
int resm[n][n];
for(int i=0; i for(int j=0; j matr[i][j] = rand()%10;
printf("%2.2f ", matr[i][j]);
}
printf("\n");
}
printf("\n");
for(int i=0; i for(int j=0; j if(matr[i][j] > matr[i][i]) resm[i][j] = 1;
else resm[i][j] = 0;
}
}
for(int i=0; i for(int j=0; j printf("%d ", resm[i][j]);
}
printf("\n");
}
getch();
return 0;
}
сайта, текст по теме, картинки по теме, гиперссылка на вторую страничку, где находят интересные факты о шоколаде и картинки... Кто дружит с этой темой, прошу, отзовитесь))) очень нужна помощь знающего человека! (пишите в лс)