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

初学Delphi嵌入汇编[26] - 大小写字母转换2012-04-16 博客园万一//小写字母转大写字母

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;