zoukankan      html  css  js  c++  java
  • 理解 Delphi 的类(十) 深入方法[25] 使用方法类型

    //弄明白这一点, 才好使用回调函数
    
    {定义方法类型}
    type
      TFunType  = function(x: Integer): Integer; {函数类型}
      TProcType = procedure(name: string);       {过程类型}
    
    {定义一个符合 TFunType 类型的函数}
    function MyFun(x: Integer): Integer;
    begin
      Result := x * 2;
    end;
    
    {定义一个符合 TProcType 类型的过程}
    procedure MyProc(name: string);
    begin
      ShowMessage('我是' + name);
    end;
    
    
    {使用}
    procedure TForm1.Button1Click(Sender: TObject);
    var
      Fun : TFunType;  {定义一个 TFunType  类型的变量}
      Proc: TProcType; {定义一个 TProcType 类型的变量}
    begin
      Fun  := MyFun;   {让变量 Fun 指向和它具有同样参数和返回值的自定义函数 MyFun}
      Proc := MyProc;  {让变量 Proc 指向和它具有同样参数的自定义过程 MyProc}
    
      {现在这两个方法的变量 Fun、Proc 可以使用了}
      ShowMessage(IntToStr(Fun(4))); {8}
      Proc('万一');                  {我是万一}
    end;
    
  • 相关阅读:
    快速幂 快速乘法
    扩展欧几里得学习笔记
    求逆序数数目(树状数组+离散化)
    隐式图的遍历
    随机数生成
    推倒重来
    动态规划初步
    子集生成
    东大oj1155 等凹函数
    P1278 单词游戏
  • 原文地址:https://www.cnblogs.com/del/p/1039415.html
Copyright © 2011-2022 走看看