//小写字母转大写字母
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;
初学 Delphi 嵌入汇编[26] - 大小写字母转换
原创
©著作权归作者所有:来自51CTO博客作者JLee79的原创作品,请联系作者获取转载授权,否则将追究法律责任
posted on 2008-01-30 00:08 万一 阅读(4887) 评论(4) 编辑 收藏
提问和评论都可以,用心的回复会被更多人看到
评论
发布评论
相关文章