查看完整版本: 初学 Delphi 嵌入汇编[26] - 大小写字母转换

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

[color=#008000]//小写字母转大写字母
[/color][b][color=#000080]function[/color][/b] Fun1(C: Char): Char;
[b][color=#000080]asm[/color][/b]
  sub C, [color=#0000ff]32[/color]
[color=#008000] //sub C, 'a'-'A' {竟也可以这样写}
[/color][b][color=#000080]end[/color][/b];


[color=#008000]//大写字母转小写字母
[/color][b][color=#000080]function[/color][/b] Fun2(C: Char): Char;
[b][color=#000080]asm[/color][/b]
  add C, [color=#0000ff]32[/color]
[b][color=#000080]end[/color][/b];


[color=#008000]//测试
[/color][b][color=#000080]procedure[/color][/b] TForm1[color=#0000ff].[/color]Button1Click(Sender: TObject);
[b][color=#000080]begin[/color][/b]
  ShowMessage(Fun1([color=#0000ff]'b'[/color])); [color=#008000]{B}[/color]
  ShowMessage(Fun2([color=#0000ff]'B'[/color])); [color=#008000]{b}[/color]
[b][color=#000080]end[/color][/b];