Delphi之回調方法

    最近學習go語言感觸很深，發現go語言竟然和Delphi非常相似，不得不感嘆，Delphi真是強大啊。學習Delphi兩個月即可以做開發項目了。

   不多說，貼代碼，自己體會，哈哈。

unit Umain;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls;

type
  myfun = function(a: Integer; b: Integer): Integer ;

type
  TForm1 = class(TForm)
    btn1: TButton;
    procedure btn1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

function add(a1: Integer; a2: Integer): Integer;
begin
  Result := a1 + a2;
end;

function minus(a1: Integer; a2: Integer): Integer;
begin
  Result := a1 - a2;
end;

function multiply(a1: Integer; a2: Integer): Integer;
begin
  Result := a1 * a2;
end;

function divide(a1: Integer; a2: Integer): Integer;
begin
  Result := a1 div a2;
end;

function calc(a1: Integer; a2: Integer; aMethod: myfun): Integer;
begin
  Result := aMethod(a1, a2);
end;

procedure TForm1.btn1Click(Sender: TObject);
var
  liValue:Integer;
begin
  liValue:= calc(10,8,add) ;
  ShowMessage(IntToStr(liValue));
end;

end.

用多態思想，是不是實現計算器很方便啊 

Q羣 Delphi Home 235236282，QQ:359985051/183902633 

誠邀delphi 愛好者加入，一起學習，研究、探討。