Новый калькулятор на делфе

[_-Re@l-_]

а кстати как у тебя работает функция квадратное уравнение???

Очень легко.
Создаешь три Edit'а.
Создаёшь кнопку "Вычислить корни".
Обработчик ButtonClick:

a:=StrToFloat(Edit1.Text); //коэффициент а
b:=StrToFloat(Edit2.Text);// коэффициент b
c:=StrToFloat(Edit3.Text); //коэффициент с
d:=sqr(b)-4*a*c; //дискриминант
if d<0 then Label1.Caption:='Корней нет!';
if d=0 then begin
   x:=-b/(2*a);
   Label1.Caption:='Один корень: x = '+FloatToStr(x);
   end;
if d>0 then begin
x1:=(-b-sqrt(d))/(2*a);
x2:=(-b+sqrt(d))/(2*a);
Label1.Caption:='Два корня: x1 = '+FloatToStr(x1)+' x2 ='+FloatToStr(x2);
end;

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

[ex.cluz]

Процедура щелчка на кнопке +- у меня такая:

procedure TForm_Calc.NumPlusMinusClick(Sender: TObject);
var
  LocNumStr: string[31];
  NF: byte;
begin
  if KeyPressOnKeyboard then KPKb(NumPlusMinus);  //это чтоб был визуальный эффект нажатия клавиши, когда значения вводятся с клавиатуры
  LocNumStr:=Display.Caption;
  if LocNumStr[1]='-' then
    begin
      Delete(LocNumStr, 1, 1);
      Display.Caption:=LocNumStr;
      Exit;
    end;
  if (LocNumStr[1]<>'-') and (Length(Display.Caption)<16) then LocNumStr:='-'+LocNumStr;  //в моем калькуляторе нельзя вводить более 16 символов
  if (LocNumStr[1]<>'-') and (Length(Display.Caption)=16) then
    begin
      NF:=Round(StrToFloat(LocNumStr[Length(LocNumStr)-1]+DecimalSeparator+LocNumStr[Length(LocNumStr)]));
      Delete(LocNumStr, Length(LocNumStr)-1, 2);
      LocNumStr:='-'+LocNumStr+IntToStr(NF);
    end;
  Display.Caption:=LocNumStr;
end;


procedure TForm_Calc.KPKb(Button: TexSpeedButton);  //Эмуляция визуального нажатия клавиш
begin
  if not KeyPressOnKeyboard then Exit;
  Button.Down:=true;
end;

TexSpeedButton - этот класс имеют все кнопки на калькуляторе (писался мной, поэтому у вас такого компонента нет). Замените его на класс своих кнопок (TButton, наверное).

[_-Re@l-_]

Классный калькулятор, ex.cluz!
Как же вы соорудили такой интерфейс(дизайн)?

[ex.cluz]

Компоненты писал сам (спидбаттоны с эффектом подсветки/затухания и панели с градиентной заливкой).

[_-Re@l-_]

У.... надо будет тоже попробовать

[ex.cluz]

Можете Alpha Skins использовать для преображения внешнего вида программы.
Компоненты не обязательно писать самому - есть много готовых решений.
Зайдите на www.torry.net, там они почти на все случаи жизни есть.

[Kotofff]

+1 ex.cluz за труд !
Вижу у тебя есть желание заниматься "калькуляторством" - тебе в личку положил ссылку на исходники вот этих шедевров.
Если есть желание (вижу есть) можешь взять оттуда что-то для себя или просто развить ... мож ...
У меня в свое время просто времени не хватило на это. Сделал все на флеше и успокоился, т.е. включил в рабочий проект ...

1-й
Ingener.jpg

2-й
SuperCalc.jpg

Представь ЭТО все работает и считает !!

[ex.cluz]

[OFFTOP]
Большое спасибо!
Однако, желания заниматься "калькуляторством" у меня нет. Я калькулятор делал как вспомогательную прогу под один проект (а по функционалу, который там требовался, я все условия выполнил и даже сверх). Проект закончен (только поддержка требуется иногда), так что ничего специального (вроде интегралов) мне не требуется.
Но если будет свободное время и желание - ознакомлюсь с вашими трудами (у меня часто бывает, что в чужом коде видишь какое-нибудь изящное решение, которое бы сам развез на строчек 50 кода ).
[/OFFTOP]

[Vikenty]

Мне ваш калькулятор тоже очень понравился)
нужно только доделать