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

//自定义记录用于测试
Type
  TMyRec = record
    i: Integer;
    c: Char;
  end;


//在汇编中使用记录的过程
procedure GetRec(Rec: TMyRec);
asm
  mov eax.TMyRec.i, 100 {eax 会接受第一个参数}
  mov eax.TMyRec.c, 'M'
end;


//测试
procedure TForm1.Button1Click(Sender: TObject);
var
  myRec: TMyRec;
begin
  GetRec(myRec);

  ShowMessage(Format('%d, %s',[myRec.i, myRec.c])); {100, M}
end;

posted on 2008-01-29 16:05  万一  阅读(...)  评论(...编辑  收藏