Alpha Controls v17 TsCombobox匈牙利语重音字母大小写匹配问题求助

问题根源 #

TsCombobox自带的匹配逻辑对Unicode重音字符的大小写处理不完整，导致仅大写带重音的首字母能匹配，而小写带重音或大写非重音的输入无法正常匹配。

解决方案 #

1. 优先升级Alpha Controls版本

很多Unicode字符处理的bug在新版本中已经修复，先尝试升级到最新版的Alpha Controls，看问题是否自动解决。

2. 自定义匹配逻辑（无源码时可用）

关闭组件自带的自动匹配，手动实现规范化的字符比较：

• 步骤1：实现字符规范化辅助函数
  该函数将带重音的字符串转换为无重音的小写形式，统一匹配规则：

  function RemoveAccentsAndLower(const S: string): string;
  var
    Normalized: string;
    I: Integer;
  begin
    // 规范化为NFD格式，分离基础字符与重音标记
    Normalized := NormalizeString(NormalizationD, PChar(S), Length(S));
    Result := '';
    for I := 1 to Length(Normalized) do
    begin
      // 过滤掉重音标记（非间距字符）
      if TCharacter.GetUnicodeCategory(Normalized[I]) <> ucNonSpacingMark then
        Result := Result + Normalized[I];
    end;
    // 统一转换为小写
    Result := LowerCase(Result);
  end;
  

• 步骤2：绑定OnChange事件处理匹配
  关闭组件的AutoComplete属性（设为False），然后在OnChange事件中实现自定义匹配：

  procedure TFormYourForm.sComboBox1Change(Sender: TObject);
  var
    I: Integer;
    InputNormalized, ItemNormalized: string;
  begin
    InputNormalized := RemoveAccentsAndLower(TsComboBox(Sender).Text);
    // 遍历所有项查找匹配
    for I := 0 to TsComboBox(Sender).Items.Count - 1 do
    begin
      ItemNormalized := RemoveAccentsAndLower(TsComboBox(Sender).Items[I]);
      // 匹配输入文本开头的项
      if Pos(InputNormalized, ItemNormalized) = 1 then
      begin
        TsComboBox(Sender).ItemIndex := I;
        // 把光标移到输入文本末尾
        TsComboBox(Sender).SelStart := Length(TsComboBox(Sender).Text);
        Break;
      end;
    end;
  end;
  

3. 修改Alpha Controls源码（有源码时推荐）

如果拥有Alpha Controls的源码，找到TsCombobox中处理输入匹配的核心函数（比如类似FindItem的方法），将原有的字符串比较逻辑替换为上述的规范化字符比较，从根源上修复匹配问题。

内容的提问来源于stack exchange，提问作者kbg888