新人求大家！(50分)

大家好！

我是新来的！
我想请您帮忙写一个DELPHI的程序，
且一定要有自己所写的过程调用。
例如写一个阶乘的程序

unit Unit1;

interface

uses
Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
StdCtrls;

type
TForm1 = class(TForm)
Button1: TButton;
procedure Button1Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;

var
Form1: TForm1;

implementation

{$R *.DFM}

function SumCount(n:integer):integer;
begin
if n=1 then
result:=1
else
result:=SumCount(n-1)*n;
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
showmessage('5!='+inttostr(sumcount(5)));
end;

end.

请问RESULT是啥意思？

result 是function的返回值.

如果你学过Pascal,Result类似如下
function SumCount(n:integer):integer;
begin
if n=1 then
result:=1 // 可以改为 SumCount := 1;
else
result:=SumCount(n-1)*n
// 可以改为 SumCount := SumCount(n-1)*n;
end
Result与SumCount不同的是,Result放在=右边SumCount不会调用.

Result := Result * n
不会调用SumCount;
SumCount := SumCount(n-1)*n ==== Result := SumCount(n-1)*n //
会调用SumCount

是想学delphi吗？先看看pascal一些基础的东西先知道，
然后就可以发挥了。
例子就不写了，上面两位已经写得很清楚了。

多人接受答案了。