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