初学 Delphi 嵌入汇编[26] - 大小写字母转换
2014-09-26 15:40
267 查看
//小写字母转大写字母
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;
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] - 大小写字母转换
- 汇编语言:实现大小写字母转换
- 初学 Delphi 嵌入汇编[4] - 寄存器在过程与函数中的使用
- 初学 Delphi 嵌入汇编[10] - 函数返回值与寄存器
- 初学 Delphi 嵌入汇编[15] - 需要保护的寄存器
- 初学 Delphi 嵌入汇编[19] - Delphi 的无符号整数类型
- 初学 Delphi 嵌入汇编[16] - 进制的表示方法
- 初学 Delphi 嵌入汇编[30] - 寄存器表
- 初学 Delphi 嵌入汇编[16] - 进制的表示方法
- 初学 Delphi 嵌入汇编[20] - Delphi 的 Integer 类型
- 初学 Delphi 嵌入汇编[19] - Delphi 的无符号整数类型
- 初学 Delphi 嵌入汇编[5] - 寄存器在过程与函数中的使用 - 续
- 初学Delphi嵌入汇编 总结
- 初学 Delphi 嵌入汇编[1] - 汇编语言与机器语言
- 初学 Delphi 嵌入汇编[11] - 用汇编重写一个 Delphi 函数
- 初学 Delphi 嵌入汇编[21] - Delphi 的其他整数类型
- 初学 Delphi 嵌入汇编[2] - 汇编语言关键字
- 初学 Delphi 嵌入汇编[12] - 在汇编代码中可以直接使用 Result
- 初学 Delphi 嵌入汇编[1] - 汇编语言与机器语言
- 初学 Delphi 嵌入汇编[2] - 汇编语言关键字