锘??xml version="1.0" encoding="utf-8" standalone="yes"?>国产欧美日韩精品专区,日韩精品中文字幕一区二区三区,一区二区在线观看视频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鍑芥暟鎸囬拡 鏂規(guī)硶鎸囬拡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('鏂規(guī)硶鎸囬拡鐨勯暱搴︽槸:'+Inttostr(SizeOf(TEvent)));
  showmessage('鍑芥暟鎸囬拡鐨勯暱搴︽槸:'+Inttostr(SizeOf(TProc)));
end;

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



end.

]]> 主站蜘蛛池模板： 商城县| 厦门市| 南平市| 天全县| 定陶县| 任丘市| 皮山县| 昆山市| 怀远县| 来宾市| 中山市| 麦盖提县| 张家界市| 高陵县| 乌鲁木齐市| 白朗县| 华蓥市| 互助| 花莲市| 景宁| 垫江县| 通城县| 新丰县| 乡城县| 阳新县| 大洼县| 额敏县| 孙吴县| 岑巩县| 金湖县| 柳州市| 五峰| 平邑县| 上蔡县| 平乡县| 青阳县| 雅安市| 灵台县| 科尔| 大连市| 泗阳县|