当内容混合单字节和双字节时如何使用子字符串/删除字符？

Question

我有一个应用程序，不幸的是在Delphi 6中编写，该应用程序允许用户从输入中提取子字符串 /删除字符。操作员看到tlabel，这是为了避免直接和不正确的输入。

这适用于英语文本。但是有时，文本是混合内容（ANSI-编码），我设置了charset，并且显示器正常工作而无需修改。

一个微不足道的示例可能是：

月123

十六进制中的字符串是8C 8E | 31 | 32 | 33 | 92 86（以清晰的字符上拆分字符），

但是一旦修改开始，就会出错。我知道为什么 - 标准的strleft / stright / substring在单个字节上起作用 - 一旦我删除字节，文本就会毫无意义。

我是否必须进行widestring转换并每次修改某些内容时返回？还是在较旧的Delphi版本中有本机库 /功能来完成我需要的事情？

类似的东西，在伪代码中：

mixedStringLength(content)             = 5        // 5 characters visible
mixedStingLeft(content,2)              = "月1"    // actually the bytes 8C  8E  31
mixedStringDeleteCharsRight(content,1) = "月123"  // actually deletes 2 bytes

由于所讨论的字符串在许多其他地方都使用，而且该项目很大，它并不像仅使用TNT库或切换到更新的Delphi版本那样琐碎。