初学Delphi嵌入汇编[22] - 在汇编代码中使用记录

初学Delphi嵌入汇编[22] - 在汇编代码中使用记录2012-04-15 博客园万一//自定义记录用于测试

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;