初学 Delphi 嵌入汇编[26] - 大小写字母转换

2014/09/26 15:40
阅读数 252
//小写字母转大写字母
function Fun1(C: Char): Char;
asm
  sub C, 32
  //sub C, 'a'-'A' {竟也可以这样写}
end;


//大写字母转小写字母
function Fun2(C: Char): Char;
asm
  add C, 32
end;


//测试
procedure TForm1.Button1Click(Sender: TObject);
begin
  ShowMessage(Fun1('b')); {B}
  ShowMessage(Fun2('B')); {b}
end;

 
 
 
 
 

 

 

  
  
展开阅读全文
打赏
0
0 收藏
分享
加载中
更多评论
打赏
0 评论
0 收藏
0
分享
返回顶部
顶部