델피의 클래스 이해하기(10) - 깊이 있는 방법[26] - 리셋 함수

//               ,       ,           



type

  TFunType = function(i: Integer): Integer; {        }



function MyFun(i: Integer): Integer;        {         }

begin

  Result := i*2;

end;



{       ,        }

function MyTest(x: Integer; F: TFunType): Integer;

begin

  Result := F(x);

end;





{  }

procedure TForm1.Button1Click(Sender: TObject);

var

  Fun: TFunType; {     TFunType    }

  i: Integer;

begin

  Fun := MyFun;  {      Fun              }



  {   Fun; Fun        ,          ,               }

  i := Fun(4);

  ShowMessage(IntToStr(i));  //8



  {  Fun       ;          ,        }

  i := MyTest(4,Fun);

  ShowMessage(IntToStr(i));  //8

end;