delphi·½·¨£¨Ê¼þ£©Ö¸ÕëÈçºÎÈëÕ»¡£¡££¿

delphi·½·¨Ö¸ÕëÈçºÎÈëÕ»¡£¡££¿
type TClickObject = procedure (Sender: TObject) Of object;

procedure TForm1.Button9Click(Sender: TObject);
var
  a:TStack;
  b : TClickObject;
begin
    b := Button10.OnClick;
    a.Push(@b);  //ÕâÑù²»±¨´í£¬µ«ÊÇÔËÐÐÆðÀ´³ÌÐòÖжÏ
    a.Push(b);  //Õâ¸öÖ±½Ó±¨´í[´íÎó] Unit1.pas(320): Not enough actual parameters
end;


delphi²ËÄñ¡£ ²»ÖªµÀ¸ÃÔõô°ìÁË¡£¡£Çó¾È¡£¡£¡£
ÎÒµÄÒâͼÊǵã»÷°´Å¥Ê±ºò°Ñ¶ÔÓ¦µÄÏìӦʼþÈëÕ»£¬µã·µ»ØµÄʱºòÖ´ÐÐÕ»¶¥ÔªËØ´ú±íµÄ¹ý³Ì £¬À´ÊµÏÖÉÏÒ»²½°´Å¥µÄ¹¦ÄÜ¡£

---

ÒýÓÃ

×î»ù±¾ µÄ
a:TStack; Õâ¶ÔÏóÄ㶼û´´½¨£¬ÄãʹÓò»³ö´í²Å¹Ö

¶î¡£¡£¡£Ê§Î󡣡£ÄÇ´´½¨Ö®ºó¾Í¿ÉÒÔÖ±½Óa.push(@b);  ÕâÑùÓÃÐÐÂð£¿

---

˳´øÎÊһϡ£ÎÒ¸ÃÔõôȡµÃÕ»¶¥ÔªËØ
ÕâÑù £¿£¿x : TClickObject;
        x := a.peek  ???

---

Delphi(Pascal) code:

type
PClickObject = ^TClickObject;
var
p: PClickObject;
begin
// Ç°ÃæÊ¡ÂÔ
new(p);
p^ := b;
a.push(p);
end;

---

×¢ÒâÖ¸ÕëÓÃÍêºóÊÍ·Å

---

Delphi(Pascal) code:

type
PClickObject = ^TC