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

//测试寄存器: 如果只有两个参数, 看看 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;