如何解决TListView控件中阿拉伯字符显示乱码的问题？

• 确认字符串编码正确性
  检查Contact.DisplayName是否为Delphi默认的UTF-16 Unicode字符串。如果地址簿接口返回的是ANSI或UTF-8编码，需转换为Unicode：

  // 若返回UTF8编码
  ListViewItem.Text := UTF8ToUnicodeString(Contact.DisplayName);
  

• 更换为支持阿拉伯语的字体
  仅设置Arial或Courier New可能不够，需使用原生支持阿拉伯文的字体，比如Segoe UI Arabic、Arial Unicode MS，可在设计时或代码中设置：

  ListViewContacts.Font.Name := 'Segoe UI Arabic';
  

• 启用从右到左排版
  阿拉伯语是从右到左书写，需调整控件的排版属性：

  ListViewContacts.RightToLeft := rtlYes;
  ListViewContacts.RightToLeftReading := True;
  

• 旧版Delphi需手动启用Unicode支持
  若使用Delphi 2009之前的非Unicode版本，需通过消息让ListView支持宽字符：

  ListViewContacts.Perform(LVM_SETUNICODEFORMAT, WPARAM(True), 0);
  

修改后的示例代码 #

procedure TForm1.AddListViewItem(Contact: TAddressBookContact);
var
  ListViewItem: TListViewItem;
begin
  // 提前设置控件字体与排版
  ListViewContacts.Font.Name := 'Segoe UI Arabic';
  ListViewContacts.RightToLeft := rtlYes;
  ListViewContacts.RightToLeftReading := True;

  ListViewItem := ListViewContacts.Items.Add;
  // 根据实际编码调整字符串转换
  ListViewItem.Text := Contact.DisplayName;
  ListViewItem.Tag := Contact.ID;
end;

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