Developing.ru

Код: Выделить всё

procedure TForm4.bdClick(Sender: TObject);
begin
if i=False then
begin
i:=true;
edit.text:=edit.text+',';
end;
end;


procedure TForm4.clrClick(Sender: TObject);
begin
edit.clear;
a:=0;
b:=0;
ch:=false;
i:=False;
end;




procedure TForm4.goClick(Sender: TObject);
begin
   if n='min' then begin
   b:=strtofloat(edit.Text);
   s:=b-a;
   i:=false;
   cha:=false;
   edit.text:=floattostr(s);
   ch:=true;
   n:='';
   end;
      if n='sum' then begin
   b:=strtofloat(edit.Text);
   s:=b+a;
   i:=false;
   cha:=false;
   edit.text:=floattostr(s);
   ch:=true;
   n:='';
   end;
      if n='mno' then begin
   b:=strtofloat(edit.Text);
   s:=b*a;
   i:=false;
   cha:=false;
   edit.text:=floattostr(s);
   ch:=true;
   n:='';
   end;
      if n='dil' then begin
   b:=strtofloat(edit.Text);
   s:=b/a;
   i:=false;
   cha:=false;
   edit.text:=floattostr(s);
   ch:=true;
   n:='';
   end;
end;

procedure TForm4.minClick(Sender: TObject);
begin if (n='')=false then begin

   if n='min' then begin
   b:=strtofloat(edit.Text);
   s:=a-b;
   i:=false;
   cha:=false;
   edit.text:=floattostr(s);
   ch:=true;
   n:='';
   end;
      if n='sum' then begin
   b:=strtofloat(edit.Text);
   s:=b+a;
   i:=false;
   cha:=false;
   edit.text:=floattostr(s);
   ch:=true;
   n:='';
   end;
      if n='mno' then begin
   b:=strtofloat(edit.Text);
   s:=b*a;
   i:=false;
   cha:=false;
   edit.text:=floattostr(s);
   ch:=true;
   n:='';
   end;
      if n='dil' then begin
   b:=strtofloat(edit.Text);
   s:=b/a;
   i:=false;
   cha:=false;
   edit.text:=floattostr(s);
   ch:=true;
   n:='';
   end;
end else
 if (ch=true)  then
   begin
   b:=strtofloat(edit.Text);
   end else
   if (cha=false) then
   begin
   a:=strtofloat(edit.Text);
   edit.clear;
   i:=false;
   cha:=true;
   end else begin
   b:=strtofloat(edit.Text);
   chb:=true;
   edit.clear;
   i:=false;
   dch:=false;
   end;

   if (chb=True)and(cha=true) then begin
   s:=a-b;
   edit.text:=floattostr(s);
   ch:=true;
   n:='min';
   a:=s;
   end;
end;



procedure TForm4.sumClick(Sender: TObject);
begin
 if (ch=true)  then
   begin
   b:=strtofloat(edit.Text);
   end else
   if (cha=false) then
   begin
   a:=strtofloat(edit.Text);
   edit.clear;
   i:=false;
   cha:=true;
   end else begin
   b:=strtofloat(edit.Text);
   chb:=true;
   edit.clear;
   i:=false;
   dch:=false;
   end;

   if (chb=True)and(cha=true) then begin
   s:=a+b;
   edit.text:=floattostr(s);
   ch:=true;
   n:='sum';
   a:=s;
   end;
  end;

end;