初学 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;