随笔 - 2146  文章 - 97 评论 - 11767 trackbacks - 253

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

posted on 2008-01-24 15:38  万一  阅读(...)  评论(...编辑  收藏