请各位老大多多指点

unit Unit1;  

   

interface 

   

uses 

  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,  

  Dialogs, StdCtrls;  

   

type 

  TForm1 = class(TForm)  

    Button1: TButton;  

    Edit1: TEdit;  

    Memo1: TMemo;  

    procedure Button1Click(Sender: TObject);  

  private 

    { Private declarations } 

  public 

    { Public declarations } 

  end;  

type 

    pFunction=function():Integer;  

var 

  Form1: TForm1;  

  function code():Integer;  

  function codeEnd():Integer;  

   

implementation 

   

{$R *.dfm} 

function code():Integer;  

var 

  i,j,k:Integer;  

begin 

      i:=10;  

      j:=50;  

      k:=i+j;  

      result:=k;  

end;  

function codeEnd():Integer; begin 

end;  

   

procedure TForm1.Button1Click(Sender: TObject);  

var 

  func1,func2,func3:pFunction;  

  myCode:array of char;  

  codeSize:Integer;  

  i:Integer;  

begin 

      ASM 

         PUSH EAX;  

         PUSH EBX;  

         LEA EAX,codeEnd; {获取codeEnd函数的地址} 

         LEA EBX,code;    {获取code函数的地址} 

         SUB EAX,EBX;     {用codeEnd函数的地址减code函数的地址则可得出code函数的} 

                          {大小，因为codeEnd函数刚好位于codeEnd函数的下面。} 

         MOV codeSize,EAX;{把code函数的大小保存在变量codeSize中} 

         POP EBX;  

         POP EAX;  

      END;  

      SetLength(myCode,codeSize);  

      ASM 

         PUSH ESI;  

         PUSH EDI;  

         CLD;  

         LEA ESI,byte ptr[code];  

         MOV EDI,myCode;  

         MOV ECX,codeSize;  

         REP MOVSB;  

         POP EDI;  

         POP ESI;  

      END;  

      for i:=0 to HIGH(myCode)-1 do begin 

          Memo1.Text:=Memo1.Text+Format('$%x',[Integer(myCode[i])]);  

      end;  

      func3:=pFunction(myCode);  

      i:=func3;  

      Edit1.Text:=IntToStr(i);  

end;  

   

end.

差距啊，看来我要再努力了。

汇编代码就这几句 呵呵

.

   ASM

         PUSH EAX;  

         PUSH EBX;  

         LEA EAX,codeEnd; {获取codeEnd函数的地址}

         LEA EBX,code;    {获取code函数的地址}

         SUB EAX,EBX;     {用codeEnd函数的地址减code函数的地址则可得出code函数的}

                          {大小，因为codeEnd函数刚好位于codeEnd函数的下面。}

         MOV codeSize,EAX;{把code函数的大小保存在变量codeSize中}

         POP EBX;  

         POP EAX;  

      END;

codeSize = DWORD(@codeEnd - @code) 一句就OK了，何必还用内联汇编。内联汇编只是为了实现高级语言不能或不易实现的功能。

为了练手。。。