Создание простейшего калькулятора (на Delphi) - проблема с вычислительными операциями

[ozhjog]

Прива асем!!!Подскажите пж как сделать так чтоб a+b=sum? заренее спс

[Joker-jar]

Вопрос непонятный. Поподробней можно?

[ozhjog]

хочу сделать типа калькулятора ток на сложение вот код:
unit Unit1;

interface

uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls;

type
TForm1 = class(TForm)
CalculateButton: TButton;
EndEdit: TEdit;
Label1: TLabel;
ResultEdit: TEdit;
Label2: TLabel;
Edit1: TEdit;
Label3: TLabel;
procedure CalculateButtonClick(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;

var
Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.CalculateButtonClick(Sender: TObject);
var
a:Integer;
b:Integer;
sum:Integer;
EndCount:Integer;

begin
if (a=0) and (b=0 ) and (sum=0) then EndCount
Sum:=a+b;


ResultEdit.Text:=IntToStr(Sum);
end;

end.

[Zitt]

так не проще?
x,y,c:real;
x:StrToFloat(Edit1.Text);
y:StrToFloat(Edit2.text);
c:x+y;
Edit3.Text:=FloatToStr(c);

[ozhjog]

спс я вот так сделал:
var
a,b,c:integer ;

begin
a:=StrToint(EndEdit.Text);
b:=strtoint(Edit1.Text);
c:=a+b;
ResultEdit.Text:=IntToStr(c);

[NetMan]

А можно и без ввода дополнительных переменных! ;)


ResultEdit.Text:=IntToStr( StrToInt(EndEdit.Text) + StrToInt(Edit1.Text) );

[Exile1985]

спс я вот так сделал:
var
a,b,c:integer ;

begin
a:=StrToint(EndEdit.Text);
b:=strtoint(Edit1.Text);
c:=a+b;
ResultEdit.Text:=IntToStr(c);

лучше так, один Edit1

var
a,b,c: integer;

begin
//при нажатии +
a:=strtoint(edit1.text);
edit1.text:=' ';
// при нажатии =
b:=strtoint(edit1.text);
c:=a+b;
edit1.text:=inttostr(c);
end;

[mari00]

лучше так, один Edit1

var
a,b,c: integer;

begin
//при нажатии +
a:=strtoint(edit1.text);
edit1.text:=' ';
// при нажатии =
b:=strtoint(edit1.text);
c:=a+b;
edit1.text:=inttostr(c);
end;
угу так лучше...только можно в кнопках запутаться=\