初学Delphi嵌入汇编[5] - 寄存器在过程与函数中的使用 - 续

2012-05-04
浏览
导读://测试寄存器: 如果只有两个参数, 看看 ECX EDX 谁来接受第二个参数 procedure Proc(x,y: Integer); var a,b: Integer; begin asm MOV a,ECX MOV b,EDX end; Sh

//测试寄存器: 如果只有两个参数, 看看 ECX EDX 谁来接受第二个参数

procedure Proc(x,y: Integer);
var
 a,b: Integer;
begin
 asm
  MOV a,ECX
  MOV b,EDX
 end;
 ShowMessage(IntToStr(a) + #44 + IntToStr(b));
end;

//测试

procedure TForm1.Button1Click(Sender: TObject);
begin
 Proc(11,22); {显示: 0,22}

{看来是 EDX 一直接受第二个值; 那么 ECX 肯定接受第三个值了}

end;

Delphi 2007 IDE功能的动画演示[3] - 修改

Delphi 2009中的TLinkLabel实例

再学GDI+[75]: 区域(4) - 根据区域剪切画板

再学GDI+[66]: 路径画刷(6) - SetInterpola

再学GDI+[64]: 路径画刷(4) - 还是 SetCent