初学 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;