Delphi調用WinAPI 字符及字符串函數(8)(2)

procedure TForm1.Button3Click(Sender: TObject);

var
　c: Char;
　b: BOOL;
begin
　c := #48; {0}
　b := IsCharUpper(c);
　ShowMessage(BoolToStr(b, True)); {False}
end;

procedure TForm1.Button4Click(Sender: TObject);

var
　c: Char;
　b: BOOL;
begin
　c := #13; {回車鍵}
　b := IsCharUpper(c);
　ShowMessage(BoolToStr(b, True)); {False}
end;

procedure TForm1.Button5Click(Sender: TObject);

var
　c: WideChar;
　b: BOOL;
begin
　c := #19975; {萬}
　b := IsCharUpper(c);
　ShowMessage(BoolToStr(b, True)); {False}
end;

end.