查看完整版本: 初学 Delphi 嵌入汇编[22] - 在汇编代码中使用记录

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

[color=#008000]//自定义记录用于测试
[/color][b][color=#000080]Type[/color][/b]
  TMyRec = [b][color=#000080]record[/color][/b]
    i: Integer;
    c: Char;
  [b][color=#000080]end[/color][/b];


[color=#008000]//在汇编中使用记录的过程
[/color][b][color=#000080]procedure[/color][/b] GetRec(Rec: TMyRec);
[b][color=#000080]asm[/color][/b]
  mov eax[color=#0000ff].[/color]TMyRec[color=#0000ff].[/color]i, [color=#0000ff]100[/color] [color=#008000]{eax 会接受第一个参数}[/color]
  mov eax[color=#0000ff].[/color]TMyRec[color=#0000ff].[/color]c, [color=#0000ff]'M'[/color]
[b][color=#000080]end[/color][/b];


[color=#008000]//测试
[/color][b][color=#000080]procedure[/color][/b] TForm1[color=#0000ff].[/color]Button1Click(Sender: TObject);
[b][color=#000080]var[/color][/b]
  myRec: TMyRec;
[b][color=#000080]begin[/color][/b]
  GetRec(myRec);

  ShowMessage(Format([color=#0000ff]'%d, %s'[/color],[myRec[color=#0000ff].[/color]i, myRec[color=#0000ff].[/color]c])); [color=#008000]{100, M}[/color]
[b][color=#000080]end[/color][/b];