Question

求Delphi 7 调用函数和过程的实例

我刚从书上看到程序是由主程序和子程序组成的，主程序可以调用子程序，而子程序可以是函数和过程。我想请各位高手可不可以举一些简单的例子说明一下函数和过程是如何调用的。谢谢。因为我是菜鸟，所以请高手们举一些简单的，好等我弄明白。

Answer 1

过程没有返回值，也就是在过程体内不用加入Result:=返回值；
函数有返回值，也就是在函数体内要加入Result:=返回值；
这里的返回值是数据库类型，比如
Function Sum(a,b:integer) :integer; //这里最后的integer就是返回类型；而这个函数就是一个计算两数和的，调用方法就是
var
SumCount:integer;
begin
SumCount :=Sum(10,20); //将sum计算后的结果保存在SumCount变量中
showmessage(inttostr(sumcount)); //这里就弹出结果值
end;

而过程呢，因为没有返回值，所以为procedure Sum(a,b:integer);
这样计算的和就不会存进刚那个变量中了，过程一般用在无返回值的地方
end;

Answer 2

函数和过程的区别在于，函数是有返回值的，而过程不需要返回。

比如下面这个是函数，将传入参数相加，然后返回相加的值；
function AddNum(a,b:integer):integer;
begin
Result:=a+b;
end;

调用的时候为:
C:=AddNum(3,5);

而过程是不能返回值的

procedure showMsg(str:string);
begin
showmessage(str);
end;

调用的时候为 showMsg('Hello,World!');

Answer 3

//下面这是一个过程
procedure msg(s: string);
begin
showmessage(s);
end;
//调用时
msg('hello!');

//------------------
//下面是个函数
function showJg(s1,s2: string): string;
begin
result := s1+s2;
end;
//调用时
var
s: string;
begin
s := showJg('a','b');
end;