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