//要点2: 过程和函数都可以有一个或多个参数; 参数用 ; 号分割 procedure MyProc(i: Integer); begin ShowMessage(IntToStr(i)); end; function MyFun(x: Integer; y: Integer): Integer; begin Result := x + y; end;
//要点2: 过程和函数都可以有一个或多个参数; 参数用 ; 号分割 procedure MyProc(i: Integer); begin ShowMessage(IntToStr(i)); end; function MyFun(x: Integer; y: Integer): Integer; begin Result := x + y; end;