初学 Delphi 嵌入汇编[26] - 大小写字母转换
生活随笔
收集整理的這篇文章主要介紹了
初学 Delphi 嵌入汇编[26] - 大小写字母转换
小編覺得挺不錯的,現在分享給大家,幫大家做個參考.
//小寫字母轉大寫字母
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] - 大小写字母转换的全部內容，希望文章能夠幫你解決所遇到的問題。
