Delphi子过程参数传递

默认调用方式Register,传递参数的顺序前三个为al,dl,cl / ax,dx,cx / eax,edx,ecx分别对应一个字节,两个字节,四个字节,当参数>3个时,多出的参数入栈,所以第四个参数的地址为[esp+8],第五个参数的地址为[esp+12],[esp+4]至[esp+0]这四个字是函数的返回地址。以上针对类以外的子过程,在类里面定义的过程参数传递有所改变,主要改变为eax保存了类的首地址即:self。

 

代码
unit Unit1;

interface

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

type
TForm1
= class(TForm)
Button1: TButton;
Button2: TButton;
Button3: TButton;
procedure Button1Click(Sender: TObject);
procedure Button2Click(Sender: TObject);
procedure Button3Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
function _AddFunc(pa,pb,pc,pd,pe:Integer):Integer;
end;

var
Form1: TForm1;

implementation

{$R *.dfm}

function TForm1._AddFunc(pa, pb, pc, pd, pe: Integer): Integer;
asm
xor eax,eax
add eax,edx
add eax,ecx
add eax,[esp
+8]
add eax,[esp
+12]
add eax,[esp
+16]
end;

procedure TForm1.Button1Click(Sender: TObject);
var
iSum: Integer;
begin
iSum :
= _AddFunc(10,20,30,40,50);
ShowMessageFmt(
'Integer Sum:%d',[iSum]);
end;

function addFunc(pa,pb,pc,pd: Byte):Byte;overload;assembler;
asm
add al,dl
add al,cl
add al,[esp
+8]
end;

function addFunc(pa,pb,pc,pd: Word):Word;overload;assembler;
asm
add ax,dx
add ax,cx
add ax,[esp
+8]
end;

function addFunc(pa,pb,pc,pd: Integer):Integer;overload;assembler;
asm
add eax,edx
add eax,ecx
add eax,[esp
+8]
end;

function addFunc(pa,pb,pc,pd,pe: Integer):Integer;overload;assembler;
asm
add eax,edx
add eax,ecx
add eax,[esp
+8]
add eax,[esp
+12]
end;

procedure TForm1.Button2Click(Sender: TObject);
var
bSum: Byte;
wSum: Word;
iSum: Integer;
begin
bSum :
= addFunc(1,2,3,4);
wSum :
= addFunc(3,4,5,6);
iSum :
= addFunc(10,20,30,40,50);
ShowMessageFmt(
'Byte Sum:%d',[bSum]);
ShowMessageFmt(
'Word Sum:%d',[wSum]);
ShowMessageFmt(
'Integer Sum:%d',[iSum]);
end;

function addFuncNew(pa,pb,pc,pd,pe: Integer):Integer;assembler;
asm
add eax,edx
add eax,ecx
add eax,[esp
+8]
add eax,[esp
+12]
end;

procedure TForm1.Button3Click(Sender: TObject);
asm
push ebp
mov ebp,esp
add esp,
-16
mov eax,
10
mov edx,
20
mov ecx,
30
push
40 //esp := esp + 4
push
50 //esp := esp + 4
call addFuncNew
lea edx,[esp
+4] //4,8 ok, 12:error
call system.IntToStr
mov eax,[esp
+4]
call showMessage
add esp,
16
mov esp,ebp
pop ebp
end;

end.

 

 

posted @ 2010-12-30 15:06  Jekhn  阅读(1545)  评论(3编辑  收藏  举报