Reason是由
#分隔的多个理由。如： ”理由一#
理由二
#reason3#
“
要做的就是把Reason中的每一个理由解析出来，然后加入到一个CBox中。
可是pos查找#的时候，把汉字当一个字节，而copy的时候，汉字又被当成两个字节，该怎么办？
Reason:=copy(DefaultJudgeReason,1,pos('#', DefaultJudgeReason)-1);
F_JudgeReport.CBox_JudgeReason.Items.Add(Reason);
DefaultJudgeReason:=copy(DefaultJudgeReason,pos('#',DefaultJudgeReason)+1,length(DefaultJudgeReason));

求助大神，感谢

都用unicode不就行了？

用高版本的的TSTRINGS类
通过Delimiter和DelimitedText可以很简单的实现分割

https://tieba.baidu.com/p/4479145854
看这个,不是刚好用上了吗

涨水了

试试这样
F_JudgeReport.CBox_JudgeReason.Text := StringReplace(DefaultJudgeReason, '#', #10, [rfReplaceAll]);