随笔 - 2146  文章 - 97 评论 - 11767 trackbacks - 253

//要点16: 在实现区(implementation), 自定义的方法是有顺序的
function MyFunA(x: Integer): Integer;
begin
  Result := Sqr(x); {取平方}
  //MyFunB(x);      {前面的函数不能调用后面的函数}
end;

function MyFunB(x: Integer): Integer;
begin
  Result := MyFunA(x) * 2; {可以调用前面的函数 MyFunA}
end;

posted on 2008-01-14 21:36  万一  阅读(...)  评论(...编辑  收藏