条码阅读器语言差异致特殊字符异常，求代码适配方案

我们通过程序生成QR条码标签，数据从SQL数据库表提取。目前遇到问题：两款条码阅读器中，一款读取时数据和字符显示正常，但另一款因语言为英文且无法切换为土耳其语，导致特殊字符显示异常。需要修改代码，确保无论使用哪款阅读器都能获取正确数据。

原代码 #

procedure Page1OnBeforePrint(Sender: TfrxComponent);
begin
  Barcode2D1.text:=<QBaslik."UREBILBASLIK_STOKNO">+' '+<QBaslik."UREBILBASLIK_LOTNO"> +' '+formatfloat('###,##0.00',<QBaslik."UREBILBASLIK_MIKTAR">);
end;

begin

end.

解决方案 #

问题根源是英文阅读器无法识别土耳其语特殊字符（如ş、ğ、ı、ö、ü、ç等），核心在于字符编码或字符集兼容问题。以下两种方案可解决：

方案1：字符映射替换（全兼容） #

编写函数将土耳其语特殊字符替换为英文近似字符，确保所有阅读器都能正确识别：

function ConvertTurkishToEnglish(const S: string): string;
var
  I: Integer;
begin
  Result := S;
  // 逐个替换土耳其语特殊字符
  Result := StringReplace(Result, 'ş', 's', [rfReplaceAll, rfIgnoreCase]);
  Result := StringReplace(Result, 'Ş', 'S', [rfReplaceAll, rfIgnoreCase]);
  Result := StringReplace(Result, 'ğ', 'g', [rfReplaceAll, rfIgnoreCase]);
  Result := StringReplace(Result, 'Ğ', 'G', [rfReplaceAll, rfIgnoreCase]);
  Result := StringReplace(Result, 'ı', 'i', [rfReplaceAll, rfIgnoreCase]);
  Result := StringReplace(Result, 'İ', 'I', [rfReplaceAll, rfIgnoreCase]);
  Result := StringReplace(Result, 'ö', 'o', [rfReplaceAll, rfIgnoreCase]);
  Result := StringReplace(Result, 'Ö', 'O', [rfReplaceAll, rfIgnoreCase]);
  Result := StringReplace(Result, 'ü', 'u', [rfReplaceAll, rfIgnoreCase]);
  Result := StringReplace(Result, 'Ü', 'U', [rfReplaceAll, rfIgnoreCase]);
  Result := StringReplace(Result, 'ç', 'c', [rfReplaceAll, rfIgnoreCase]);
  Result := StringReplace(Result, 'Ç', 'C', [rfReplaceAll, rfIgnoreCase]);
end;

procedure Page1OnBeforePrint(Sender: TfrxComponent);
var
  StokNo, LotNo: string;
  Miktar: string;
begin
  // 转换特殊字符后再拼接
  StokNo := ConvertTurkishToEnglish(<QBaslik."UREBILBASLIK_STOKNO">);
  LotNo := ConvertTurkishToEnglish(<QBaslik."UREBILBASLIK_LOTNO">);
  Miktar := formatfloat('###,##0.00', <QBaslik."UREBILBASLIK_MIKTAR">);
  Barcode2D1.text := StokNo + ' ' + LotNo + ' ' + Miktar;
end;

begin

end.

方案2：强制UTF-8编码（适配支持UTF-8的阅读器） #

如果那款英文阅读器支持UTF-8解码，直接设置条码组件的编码格式为UTF-8（需确认组件是否有对应属性，以下为示例）：

procedure Page1OnBeforePrint(Sender: TfrxComponent);
begin
  // 设置条码编码为UTF-8（属性名需根据实际使用的条码组件调整）
  Barcode2D1.Encoding := encUTF8;
  Barcode2D1.text := <QBaslik."UREBILBASLIK_STOKNO"> + ' ' + <QBaslik."UREBILBASLIK_LOTNO"> + ' ' + formatfloat('###,##0.00', <QBaslik."UREBILBASLIK_MIKTAR">);
end;

begin

end.

方案选择建议 #

• 若不确定阅读器是否支持UTF-8，优先用方案1，兼容性覆盖所有场景；
• 若确认阅读器支持UTF-8，方案2能保留原始土耳其语字符，数据更准确。

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