理解Delphi的类（十） - 深入方法

理解Delphi的类（十） - 深入方法2011-04-03万一类中包含字段、方法和属性（属性包含事件）; 字段是靠方法组织与操作的; 属性也只是方便和规范了字段与方法的使用.

因此我觉得: 方法是最重要的.

方法无处不在, 它不仅仅存在与类中. 先从非类中的方法谈起吧, 因为类中的方法也拥有全部这些特性.

离开类的怀抱, 我们更喜欢把方法叫做过程或函数.

//要点1: 过程用 procedure 定义, 函数用 function 定义; 过程没有返回值, 函数需要返回值.

procedure MyProc;
begin
  ShowMessage（"ok"）;
end;
function MyFun: string;
begin
  Result := "ok";
end;

//要点2: 过程和函数都可以有一个或多个参数; 参数用 ; 号分割

procedure MyProc（i: Integer）;
begin
  ShowMessage（IntToStr（i））;
end;
function MyFun（x: Integer; y: Integer）: Integer;
begin
  Result := x + y;
end;

//要点3: 在调用时, 参数使用 , 分割的

function MyFun（x: Integer; y: Integer）: Integer;
begin
  Result := x + y;
end;
{调用}
procedure TForm1.Button1Click（Sender: TObject）;
var
  i: Integer;
begin
  i := MyFun（1,2）;
end;

//要点4: 多个相同类型的参数可以简化写法

function MyFun（str: string; x,y,z: Integer）: string;
begin
  Result := str + IntToStr（x + y + z）;
end;

//要点5: 函数的返回值可以使用 Result , 也可以使用函数名（但不提倡）

function MyFun1（x,y: Integer）: Integer;
begin
  Result := x + y;
end;
function MyFun2（x,y: Integer）: Integer;
begin
  MyFun2 := x + y;
end;