Как модернизироваать калькулятор ?

[бедный_студент]

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

заодно посмотрите может там еще какие то неточности есть

[DomiNick]

Ну... Я бы, например, не стал постоянно писать "edit1.SetFocus;"... Просто кнопки ТSpeedButton использовал...

"Отрицательное" можно вот так переделать:

procedure TForm1.Button18Click(Sender: TObject);
begin
If Not (Edit1.Text='') Then
      Form1.Edit1.Text:=FloatToStr(-1*StrToFloat(Edit1.Text));
end;

[бедный_студент]

т.е. отрицательное а причем тут вычитание там вроде все ок

блиииин он еще и несколько знаков ставит....тоже вылетает

+ позволяет дописывать числа к конечному результату без сброса...(ужос все больше и больше багов)

[DeKot]

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

[бедный_студент]

благодарствую