Калькулятор.

[Bilargo]

Добрый день, я недавно начал программировать в дельфи, и 1ой из моих первых программ, с которыми мне пришлось столкнутся стал калькулятор(полистал другие подобные темы, но подходящих решений для себя не нашел), проблема заключается в следующем: я не могу написать процедуру для вывода данных, после нажатия кнопки равно, т.е. эта процедура должна выполнять вычитание или сложение исходя из ранее введеных переменных, и мне нужно установить условие, но не знаю как его правильно оформить, вот код:

procedure TForm1.btn10Click(Sender: TObject); // Это процедура для кнопки "+" сложения
begin
a:=StrToInt(edt1.Text);
edt1.Text:='0';
end;

procedure TForm1.btn6Click(Sender: TObject);// Это процедура для кнопки "-" вычитания
begin
a:=StrToInt(edt1.Text);
edt1.Text:='0';
end;

procedure TForm1.btn15Click(Sender: TObject);
begin
if -------- then // вот здесь необходимо задать условие, как я понимаю, которое отвечает логической операцией, если используем procedure TForm1.btn10Click, тогда - То что описано ниже строчкой, ну, а если не используем соответственно ниже др. строчкой, дак вот как объяснить это машине?
edt1.Text:=IntToStr(StrToInt(edt1.Text)+a) else
edt1.Text:=IntToStr(StrToInt(edt1.text)-a)
end;
end.

Да чуть не забыл, кулькулятор предельно простой, должен только уметь складывать и вычитать.

[Stilet]

Неудачную ты стратегию взял... Ну в крайнем случает тебе можно использовать левую переменку, где будет фиксироваться какая кнопка нажата:

procedure TForm1.btn10Click(Sender: TObject); // Это процедура для кнопки "+" сложения
begin
tag:=1;
a:=StrToInt(edt1.Text);
edt1.Text:='0';
end;

procedure TForm1.btn6Click(Sender: TObject);// Это процедура для кнопки "-" вычитания
begin
tag:=2;
a:=StrToInt(edt1.Text);
edt1.Text:='0';
end;

procedure TForm1.btn15Click(Sender: TObject);
begin
if  tag=1 then 
edt1.Text:=IntToStr(StrToInt(edt1.Text)+a) else
edt1.Text:=IntToStr(StrToInt(edt1.text)-a)
end;
end.

[russian-stalker]

Написал бы примерно так:

  TCalc = Record
    x:extended;
    oper:char;
    result:extended;
  End;

var
  Form1: TForm1;
  calc:tcalc;

implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
begin
calc.x:=StrTofloat(edit1.Text);
calc.oper:='+';
edit1.Text:='0';
end;

procedure TForm1.Button2Click(Sender: TObject);
begin
calc.x:=StrTofloat(edit1.Text);
calc.oper:='-';
edit1.Text:='0';
end;

procedure TForm1.Button3Click(Sender: TObject);
begin
if calc.oper='+' then
calc.result:=calc.x+StrTofloat(edit1.Text);
if calc.oper='-' then
calc.result:=calc.x-StrTofloat(edit1.Text);
edit1.Text:=floattostr(calc.result);
end;

[Bilargo]

Стилет спасибо, ты мой спаситель)))
Честно сказать, я вообще не знал, как сделать эту примочку к нажатой кнопке, теперь знаю, примерно такое я и задумывал, когда писал программу, я знаю, что не самая удачная конструкция, но вот мне хотелось разобраться именно с этой ситуацией, и я не хотел сдавать позиции)))
Но вот сейчас проблема с выводом, почему-то получается так:
Пр.: 9-6=-3, и всё по аналогии с минусом возвращает, а если допустим взять так, 7-8=1, непорядок...

[russian-stalker]

Здесь ошибка:

edt1.Text:=IntToStr(StrToInt(edt1.text)-a)

Надо наоборот: (от сохраненного числа A отнять последнее значение из edt1, а у вас наоборот)

edt1.Text:=IntToStr(a-StrToInt(edt1.text))

[Bilargo]

Ммм....а ведь и правда, вот я невнимательный... Спасибо за помощь.