//常量可以在汇编语句中运算
function Fun: Integer;
const
  a = 11;
  b = 5;
asm
  mov eax, a-b
end;


//测试
procedure TForm1.Button1Click(Sender: TObject);
var
  i: Integer;
begin
  i := Fun;
  ShowMessage(IntToStr(i)); {6}
end;

//变量不可以, 方法中的参数也都属于变量 function Fun: Integer; var x,y: Integer; asm mov x, 11 mov y, 5 //mov eax, x-y {不能这样使用} mov eax, x sub eax, y {sub 是减, 就像 add 是加一样} end; //测试 procedure TForm1.Button1Click(Sender: TObject); var i: Integer; begin i := Fun; ShowMessage(IntToStr(i)); {6} end;
posted on 2008-01-25 17:16  万一  阅读(3701)  评论(2编辑  收藏  举报