Function Tform1.csculate(x , y :real; operator : Integer;var answer:real) : Boolean;
begin
case operator of
1:answer:=x+y;
2:answer:=x-y;
3:answer:=x*y;
4: If y < zero Then
berin
result:=false;
exit;
End
Else
answer:=x/y;
End;
result:=false;
end;
调试欢乐多
这样就可以了