初學 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;