Delphi 10.3 函数 CharUpper 和 CharUpperW 不同 Delphi 10.4

Question

有人知道为什么 Delphi 10.3 中的 CharUpper 和 CharUpperW 声明与 Delphi 10.4 中的声明不同。

Delphi 10.3 中的正确声明

    var
      chr   :WideChar;
    begin      
      chr := WideChar(CharUpperW(PWideChar('a'))); //chr = 'A'
//    chr := WideChar(CharUpperW(WideChar('a')));  //raise exeption: "access violation...

Delphi 10.4 中的正确声明

    var
      chr   :WideChar;
    begin   
//    chr := WideChar(CharUpperW(PWideChar('a')));  //raise exeption: "access violation...
      chr := WideChar(CharUpperW(WideChar('a')));   //chr = 'A'

编辑：Remy Lebeau 对 PWideChar 的解释是正确的，但关于 Delphi 10.4 版和更早版本仍然存在差异！

Lebeau解释代码样例在10.4及更早版本编译，但函数输出不同。 10.4 之前的所有版本都得到正确的输出“A”！

var
  char , chr : WideChar;
begin
  chr := 'a';
  char := WideChar(CharUpperW(PWideChar(chr)));
end;

此示例在 10.4 下无法正常工作，输出为随机字符。

当然... 函数CharUpperW的声明在Delphi的船版中是一样的。

LPWSTR = PWideChar; 
function CharUpperW(lpsz: LPWSTR): LPWSTR; stdcall;**

编辑：在 10.4 下添加反汇编代码

umCommon.pas.114: chr := 'a';
0064C52C 66BB6100         mov bx,$0061
umCommon.pas.115: char := WideChar(CharUpperW(PWideChar(chr)));
0064C530 8D45FC           lea eax,[ebp-$04]
0064C533 8BD3             mov edx,ebx
0064C535 E8EEE7DBFF       call @UStrFromWChar
0064C53A 8B45FC           mov eax,[ebp-$04]
0064C53D E8C2E7DBFF       call @UStrToPWChar
0064C542 50               push eax
0064C543 E8809DDCFF       call CharUpperW

10.3下的反汇编代码

umCommon.pas.114: chr := 'a';
0063A905 66BB6100         mov bx,$0061
umCommon.pas.115: char := WideChar(CharUpperW(PWideChar(chr)));
0063A909 0FB7C3           movzx eax,bx
0063A90C 50               push eax
0063A90D E8AAB1DDFF       call CharUpperW

Answer 1

Win32 CharUpperW() 函数不接受单个WideChar 作为输入，而只接受一个PWideChar。但是该指针的解释取决于它的高位字是零（低位字包含单个字符）还是非零（整个指针指向一个以空字符结尾的字符串） .

CharUpperW(WideChar('a')) 在任何版本中甚至可以编译的唯一方法是，Embarcadero 是否添加了自己的重载，该重载将单个 WideChar 作为输入（我没有安装任何 10.x 版本来验证） .

恕我直言，CharUpperW() 使用起来有点危险，因为滥用了指针。我不会相信它与类型转换的文字，而是使用一个变量，这样你就可以确保你给它的正是它真正想要的：

var
  chr : array[0..1] of WideChar;
begin
  chr[0] := 'a';
  chr[1] := #0;
  CharUpperW(chr);
end;

var
  chr : WideChar;
begin
  chr := 'a';
  char := WideChar(CharUpperW(PWideChar(chr)));
end;

话虽如此，RTL 中还有其他函数可以处理此任务，请改用这些函数。

更新：我为此创建了支持票：

RSP-31498: Bad codegen breaks Winapi.Windows.CharUpperW()

Answer 2

由于 Delphi 10.4 创建隐藏字符串并且CharUpperW 在处理单字符或以空字符结尾的字符串输入时充当different，因此您需要重写代码以使其与 10.4 和 10.3（及更早）版本保持一致：

var
  s: string;
begin
  s := 'a';
  CharUpperW(@s[1]);
end;

---

附：由于这些困难，我建议您使用 System.SysUtils 中的UpperCase / AnsiUpperCase。

Answer 3

好的，在您的帮助下，我找到了答案... 实际上，CharUpper 和 CharUpperW 函数在 Winapi.Windows 单元中，并且都调用相同的 API 调用 CharUpperW。 但是在单元Winapi.Windows 的Delphi 10.4 版中是新的函数重载：

function CharUpper(lpsz: LPWSTR): LPWSTR; overload; stdcall; external user32kernel name 'CharUpperW';
function CharUpper(tch: WideChar): WideChar; overload; stdcall;
begin
  Result := WideChar(IntPtr(CharUpperW(LPWSTR(IntPtr(tch)))));
end;

编译器采用这个重载函数而不是旧函数，结果在我的问题中描述。

为了避免这个重载函数，我们必须更正类型转换变量Chr 以获得正确的结果：

var
  Chr     :Char; //Or WideChar 
begin
  Chr := 'a';   
  Chr := Char(CharUpper(LPWSTR(ord(Chr))));

编辑：我们也可以像这样调用 CharUpperW API 函数：

var
  Chr     :WideChar; //or Char
begin
  Chr := 'a';   
  Chr := Char(CharUpper(LPWSTR(ord(Chr))));

反汇编代码相同：

umCommon.pas.109: Chr := 'a';
0063A906 66BB6100         mov bx,$0061
umCommon.pas.110: Chr := Char(CharUpperW(LPWSTR(ord(Chr))));
0063A90A 0FB7C3           movzx eax,bx
0063A90D 50               push eax
0063A90E E8A9B1DDFF       call CharUpperW
0063A913 8BD8             mov ebx,eax