delphi串口接受数据在Memo如何实现每行显示字符个数自定义？

Question

可以给个例子么？
总感觉不好弄。。
比如5000个字符
被分成了10次
第1次str得到103个字符
第2次str得到354个字符
第3次str得到1235个字符
第4次str得到88个字符
第5次str得到631个字符
第6次str得到555个字符
第7次str得到238个字符
第8次str得到1039个字符
第9次str得到257个字符
第10次str得到976个字符在不用全局变量的情况下，
让这5000个字符按每行5个字符分成1000行？

Answer 1

提供一个思路在Memo的Change事件中判断
if Legth(Memo.text) > 1000 then
begin
  str := Memo.text;
  Memo.lins.add(Copy(str, 1, 1000);
  Memo.lins.add(Copy(str, 1000, Length(str));
end;这只是个思路，还需要解决多个问题，如果已经分开的就不在分了！还就是如果一次接收超过5000那么就得循环分解了！

Answer 2

可以给个例子么？
总感觉不好弄。。
比如5000个字符
被分成了10次
第1次str得到103个字符
第2次str得到354个字符
第3次str得到1235个字符
第4次str得到88个字符
第5次str得到631个字符
第6次str得到555个字符
第7次str得到238个字符
第8次str得到1039个字符
第9次str得到257个字符
第10次str得到976个字符在不用全局变量的情况下，
让这5000个字符按每行5个字符分成1000行？
为啥不用全局变量？