//小寫字母轉大寫字母 function Fun1(C: Char): Char; asmsub C, 32//sub C, 'a'-'A' {竟也可以這樣寫} end;//大寫字母轉小寫字母 function Fun2(C: Char): Char; asmadd C, 32 end;//測試 procedure TForm1.Button1Click(Sender: TObject); beginShowMessage(Fun1('b')); {B}ShowMessage(Fun2('B')); {b} end;

轉載于:https://www.cnblogs.com/del/archive/2008/01/30/1058109.html

總結

以上是生活随笔為你收集整理的初学 Delphi 嵌入汇编[26] - 大小写字母转换的全部內容，希望文章能夠幫你解決所遇到的問題。

如果覺得生活随笔網站內容還不錯，歡迎將生活随笔推薦給好友。