初學 Delphi 嵌入彙編[26] - 大小寫字母轉換

//小寫字母轉大寫字母
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;