Delphi的位操作以及嵌入式匯編[2]

　　＊ Delphi嵌入式匯編的使用方式

　　．在一般函數過程中使用匯編

　　匯編程序段可以嵌套於其它過程中如

procedure TFormButtonClick(Sender: TObject);

　　var i:smallint;

　　begin

　　 i:=;

　　 asm

　　 mov axi

　　 sal ax

　　 mov ＆iax

　　 end;

　　 showmessage(inttostr(i));

　　end;

　　這個程序段是把位的變量I進行左移然後把結果用Mov ＆Iax語句放入I變量所在地址返回值最後顯示I 的值是

　　．獨立的匯編程序段

　　匯編程序段也可以單獨寫成函數或過程這就涉及到參數的傳遞與結果的返回首先Delphi對於函數的返回有一個約定

　　即整型數據位的用AL返回位的用AX返回位的用EAX返回

　　實型用ST（）返回

　　指針用EAX返回

　　長字符串用EAX返回其所在地址

　　變量可用@Result返回

　　例如一個用匯編的求和函數

function _Sum(X Y: Integer): Integer;

　　 asm

　　MOV EAXX //把位的數放入EAX

　　ADD EAXY //進行加法運算

　　MOV @ResultEAX //返回X＋Y

　　 end;

[]  []  []  

From:http://tw.wingwit.com/Article/program/Delphi/201311/24898.html