Delphi中用DrawTextA和Courier New显示日语时出现什么诡异现象？

本文共计636个文字，预计阅读时间需要3分钟。

在将DrawTextA与支持日语环境的Courier New字体结合使用时，我发现了一些奇怪的行为。以下是一个基于Delphi XE2的代码示例：

delphiprocedure PaintTexts(aPaintBox: TPaintBox; aCharset: Byte);var A: AnsiString; S: string; R: TRect;begin A :='将DrawTextA与支持日语环境的Courier New字体结合使用时'; S :='我发现了一些奇怪的行为。