Создание калькулятора в среде Delphi.

[dariya.95]

Добрый вечер!Помогите,пожалуйста,найти ошибку в программе!Кнопки "+","-" и "=" не работают и запятая работает как-то с перебоями. Все цифры написаны как и цифра 1.

var accum:real;
    oper:integer;
    f:integer;

procedure TForm1.Button1Click(Sender: TObject);//цифра 1
  var Btn:TButton;
  ch:Char;
  begin
    Btn:=Sender as TButton;
    ch:=chr(48+Btn.Tag);
    case Btn.Tag of
    1..9:
    if f=0 then begin
      Edit1.Text:=ch;
      f:=1;
    end
    else Edit1.Text:=Edit1.Text+ch;
    0:
    if Edit1.Text<>'0' then
    Edit1.Text:=Edit1.Text+'0';
    end;
end;

procedure TForm1.Button8Click(Sender: TObject);//запятая
begin
  if Edit1.Text='0' then
  begin
    Edit1.Text:='0,';
    f:=1;
  end;
  if Pos(',',Edit1.Text)=0 then Edit1.Text:=Edit1.Text+',';
end;

procedure DoOper;
var numb:real;
begin
  numb:=StrToFloat(Form1.Edit1.Text);
  case oper of 0:accum:=numb;
  1:accum:=accum+numb;
  2:accum:=accum-numb;
  end;
  Form1.Edit1.Text:=FloatToStr(accum);
end;

procedure TForm1.Button7Click(Sender: TObject);//плюс
var Btn:TButton;
begin
  Btn:=Sender as TButton;
  if f=0 then oper:=Btn.Tag
  else begin
    DoOper;
    oper:=Btn.Tag;
    f:=0;
  end;
end;

procedure TForm1.Button14Click(Sender: TObject);//минус
var Btn:TButton;
begin
  Btn:=Sender as TButton;
  if f=0 then oper:=Btn.Tag
  else begin
    DoOper;
    oper:=Btn.Tag;
    f:=0;
  end;

end;

procedure TForm1.Button13Click(Sender: TObject);//равно
var Btn:TButton;
begin
  Btn:=Sender as TButton;
  if f=0 then oper:=Btn.Tag
  else begin
    DoOper;
    oper:=Btn.Tag;
    f:=0;
  end;
end;

procedure TForm1.Button12Click(Sender: TObject);//очистка
begin
  Edit1.Text:='0';
  accum:=0;
  oper:=1;
  f:=0;
end;

procedure TForm1.Edit1Change(Sender: TObject);//поле ввода цифр
var Key:char;
begin
  oper:=0;
end;

end.

[Stilet]

Отладчиком понятное дело не проходила?

var accum:real;
    oper:integer;
    f:integer;

procedure TForm1.Button1Click(Sender: TObject);//цифровые
  begin
      Edit1.Text:=Edit1.Text+TButton(Sender).Caption;
end;

procedure DoOper;
var numb:real;
begin
  numb:=StrToFloat(StringReplace(Form1.Edit1.Text,',','.',[]));
  case oper of 
  0:begin Form1.Edit1.Text:=FloatToStr(accum); end;
  1:accum:=accum+numb;
  2:accum:=accum-numb;
  end;
  
end;

procedure TForm1.Button7Click(Sender: TObject);//плюс
begin
    DoOper(TButton(sender).tag);
end;

procedure TForm1.Button14Click(Sender: TObject);//минус
begin
    DoOper(TButton(sender).tag);
end;

procedure TForm1.Button13Click(Sender: TObject);//равно
begin
    DoOper(TButton(sender).tag);
end;

procedure TForm1.Button12Click(Sender: TObject);//очистка
begin
  Edit1.Text:='0';
  accum:=0;
  oper:=1;
  f:=0;
end;

procedure TForm1.Edit1KeyPress(Sender: TObject);//поле ввода цифр
begin
  if not (key in ['0'..'9',',','.']) then key:=#0;
end;

end.

Во-первых: Добавь KeyPress для Эдита. Чтоб отсекать нецифры.
Во-вторых: StringReplace на всякий случай позволит заменять для вещественных на точку, чтоб не была путаница с разделителями при использовании в выражении результата.
В-третьих: Цифровые кнопки опиши как у меня, с учетом что в их Caption будут стоять соответствующие цифры.
Ну и мусора у тебя в обработчиках кликов кнопки много.

[dariya.95]

Спасибо большое!

[Mad_Cat]

StringReplace на всякий случай позволит заменять для вещественных на точку

я б все-таки на DecimalSeparator менял