不懂pascal,现学现卖的写了一小段程序。
[code]
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.
[/code]
奇怪的是一直出现 Identifier not found "Result"的错误,如果把Result改成div2,则一切都正常。。。。。有懂pascal的先进指点一下迷津吧?
[code]
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.
[/code]
奇怪的是一直出现 Identifier not found "Result"的错误,如果把Result改成div2,则一切都正常。。。。。有懂pascal的先进指点一下迷津吧?