过程没有返回值，但是怎么把运算的值显示？

Question

已知圆的半径，怎么用函数求内切圆的面积，用过程求外接圆的面积？函数调用求内切圆的面积我编出来了，就是过程调用求外切圆的面积没弄出来，我在buttonclick中调用过程和函数，但是过程没有返回值，怎么把结果显示在edit中呢？学习中。

Answer 1

也可以在过程里面写EDIT1.TEXT:=

Answer 2

procedure MianJi(var iResult:integer);
...var
  iMianJi:integer;
begin
  MianJi(iMianJi);
  Edit.Text:=IntToStr(iMianJi);
end;

Answer 3

可以用引用参数
var st:??或者输出参数
out st:??

Answer 4

1)out xx:
2)用函數
3)定義全局變量不就可以了

Answer 5

用function 啊，过程没有返回值．
function myfunction();