锘??xml version="1.0" encoding="utf-8" standalone="yes"?>heyzo在线,国产婷婷成人久久av免费高清,久久精品一本久久99精品http://www.aygfsteel.com/zhangsk/category/25458.html澶╀笅闅句簨蹇呭仛浜庢槗錛屽ぉ涓嬪ぇ浜嬪繀鍋氫簬緇?/description>zh-cnMon, 03 Sep 2007 13:15:50 GMTMon, 03 Sep 2007 13:15:50 GMT60鍑芥暟鎸囬拡 鏂規硶鎸囬拡http://www.aygfsteel.com/zhangsk/archive/2007/09/03/142356.html寮犳爲鍧?/dc:creator>寮犳爲鍧?/author>Mon, 03 Sep 2007 08:08:00 GMThttp://www.aygfsteel.com/zhangsk/archive/2007/09/03/142356.htmlhttp://www.aygfsteel.com/zhangsk/comments/142356.htmlhttp://www.aygfsteel.com/zhangsk/archive/2007/09/03/142356.html#Feedback0http://www.aygfsteel.com/zhangsk/comments/commentRss/142356.htmlhttp://www.aygfsteel.com/zhangsk/services/trackbacks/142356.htmlunit Unit1;

interface

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

type
  TEvent = procedure () of object;
  TProc = procedure();

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

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.btn1Click(Sender: TObject);
begin
  showmessage('鏂規硶鎸囬拡鐨勯暱搴︽槸:'+Inttostr(SizeOf(TEvent)));
  showmessage('鍑芥暟鎸囬拡鐨勯暱搴︽槸:'+Inttostr(SizeOf(TProc)));
end;

//鍑芥暟鎸囬拡鏄寚鍚戝嚱鏁扮殑32浣嶆寚閽堬紝鍗?涓瓧鑺傘?br /> //榪囩▼鐨勬寚閽堢粨鏋勫涓?br /> //  PProc = ^TProc;//榪囩▼鎸囬拡
//銆TProc = record
//銆銆Code: Pointer;//鎸囧悜榪囩▼鐨勪唬鐮?br /> //銆end;
//鏂規硶鎸囬拡鏄寚鍚戜竴涓粨鏋勩傛柟娉曠殑鎸囬拡緇撴瀯濡備笅
//  PMethod = ^TMethod;//鏂規硶鎸囬拡
//銆TMethod = record
//銆銆Code: Pointer;//鎸囧悜鏂規硶鐨勪唬鐮?br /> //    Data: Pointer;//鎸囧悜瀵硅薄鐨勬暟鎹?br /> //銆end;



end.

]]> 主站蜘蛛池模板： 厦门市| 阳西县| 新泰市| 壤塘县| 博客| 黄梅县| 江阴市| 德令哈市| 苍溪县| 桐乡市| 罗甸县| 徐州市| 蚌埠市| 远安县| 华池县| 皋兰县| 忻州市| 桦川县| 方山县| 林口县| 额尔古纳市| 祁东县| 临沭县| 磐安县| 连山| 哈密市| 固始县| 福清市| 龙胜| 景德镇市| 萍乡市| 六盘水市| 仪征市| 余庆县| 务川| 巢湖市| 资兴市| 镇远县| 英超| 和龙市| 开阳县|