UpperCase轉中文字時會出現錯誤的問題

可用UpperCaseEx來取代UpperCase函數

function UpperCaseEx(const S: string): string;
var
  Ch: Char;
  L: Integer;
  Source, Dest: PChar;
  nH: Integer;
begin
  L := Length(S);
  SetLength(Result, L);
  Source := Pointer(S);
  Dest := Pointer(Result);
  nH := 0;
  while L <> 0 do
  begin
    Ch := Source^;
    if nH = 0 then
      if Ord(ch) >= 128 then
        nH := 2;
    if nH > 0 then
      Dec(nH)
    else
      if (Ch >= 'a') and (Ch <= 'z') then Dec(Ch, 32);
    Dest^ := Ch;
    Inc(Source);
    Inc(Dest);
    Dec(L);
  end;
end;