초학 Delphi 삽입 어셈블리[9] - asm는 Begin을 대체할 수 있다

348 단어 Delphi


//    asm    begin

function Fun(x: Integer): Integer;

asm

  mov eax, x

  inc eax

end;

{

       inc     Delphi    inc     ;

          eax               .

}



procedure TForm1.Button1Click(Sender: TObject);

var

  i: Integer;

begin

  i := 8;

  i := Fun(i);

  ShowMessage(IntToStr(i)); {9}

end;


 
   

좋은 웹페이지 즐겨찾기