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