奇怪的Pascal问题

不懂pascal，现学现卖的写了一小段程序。

unit TestUnit;

interface
	function div2(a : LongInt; b : LongInt) : LongInt;

implementation

function div2(a : LongInt; b : LongInt) : LongInt;
begin
   Result := a div b;
   if (a mod b) > 0 then
   begin
      Inc(Result);
   end;
end;

end.

奇怪的是一直出现 Identifier not found "Result"的错误，如果把Result改成div2，则一切都正常。。。。。有懂pascal的先进指点一下迷津吧？

评论

7 楼 smallping79 2010-08-21  

Result 是object pascal（delphi）里的返回值保留字；你的代码在 Free Pascal里编译通过，应该是你的 Pascal版本问题

6 楼 maxiaoxia 2009-06-11  

好久不写delphi都忘了
难道要小写ｒｅｓｕｌｔ
难道是版本问题，没有result关键字

5 楼 RCFans 2009-06-11  

google:

you have to activate the Delphi or ObjFPC compilation mode.

4 楼 ray_linn 2009-06-11  

tapestry1122 写道

night_stalker 写道

我也不懂，不过感觉需要

var
  Result: LongInt;

不需要

lz，我在d7里能编译过你的这段代码啊。

奇怪，Free Pascal死命的报错，我用Prism试看看。。。

3 楼 tapestry1122 2009-06-11  

night_stalker 写道

我也不懂，不过感觉需要

var
  Result: LongInt;

不需要

lz，我在d7里能编译过你的这段代码啊。

2 楼 xieye 2009-06-11  

我也不懂，

不过怎么感觉和python有点象嘛？

1 楼 night_stalker 2009-06-11  

我也不懂，不过感觉需要

var
  Result: LongInt;