delphi 之内嵌汇编小示例

procedure TForm1.BitBtn1Click(Sender: TObject);
var
  i:Integer;
begin
  asm
    mov i,77h
  end;
  ShowMessage(IntToStr(i));//119
end;

内嵌的汇编代码用 asm……end; 代码块包裹。