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