[JuVi]

удалите ету тему )) я уже догнал)))))

Ладно но ето о4ень тупой способ)))

procedure TForm1.Button1Click(Sender: TObject);
begin
qq:=strtoint(edit1.text);
ww:=strtoint(edit3.text);
rr:=strtoint(edit5.Text);
if (edit2.text='+') then
begin
if (edit4.text='+') then (memo1.Text:=inttostr(qq+ww+rr));
if (edit4.text='*') then (memo1.Text:=inttostr(qq+ww*rr));
if (edit4.text='-') then (memo1.Text:=inttostr(qq+ww-rr));
end;
if (edit2.text='-') then
begin
if (edit4.text='+') then (memo1.Text:=inttostr(qq-ww+rr));
if (edit4.text='*') then (memo1.Text:=inttostr(qq-ww*rr));
if (edit4.text='-') then (memo1.Text:=inttostr(qq-ww-rr));
end;
if (edit2.text='*') then
begin
if (edit4.text='+') then (memo1.Text:=inttostr(qq*ww+rr));
if (edit4.text='*') then (memo1.Text:=inttostr(qq*ww*rr));
if (edit4.text='-') then (memo1.Text:=inttostr(qq*ww-rr));
end;

end;

протсо каждое чило прийдетса записивать в edit1, edi3, edi5, а знаки в edi2, edi4 НО / не работоет)