калкулаторче треба да биде
ma nalet
var
Form1.TForm1;
rez:real;o:char;
implementation
{SR*.DFM}
procedure TForm1.FormCreatesender:TObject);
begin
rez:=0;
o:='':
end;
procedure TForm1.Button7Click(sender:TObject);
begin
edit1.Text<>'E'then edit1.text:=floattostr(rez);
o:='';
end;
procedure TForm1.Button5Clic(Sender: TObject);
edit1.text:='0''
o:='':
end;
procedure TFoirm1.Edit1Change(sender: TObject);
var pak:boolean
begin
if o<>''then begin
repeat
try
pak:=true;
case o of
'+':rez=rez+strtofloat(edit1.text);
'-':rez=re-strtofloat(edit1.text);
'*':rez*strtofloat(edit1.text);
'/:if Edit1.text:='0'then edit1.text:='E'
else rez:=rez/strtofloat(edit1.text);
end except
on EConvertError do pak:=false;
end
until pak;
end else begin
repeat
pak:=true;
try
rez:=strtofloat(edit1.text);
except
on EconvertError do pak:=false;
end;
procedure TForm1.Button1Click(Sender: TObject);
begin
o:='+';
end;
procedure TForm1.Button2Click(Sender: TObject);
begin
o:='-';
end;
procedure TForm1.Button4Click(Sender: TObject);
begin
o:='/';
end;
procedure TForm1.Button3Click(Sender: TObject);
begin
o:='*';
end;
end.
FALA