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

//自定义记录用于测试
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;