Question

delphi memo显示数据问题

做串口通信时，用mscomm.接收下位机发送 的信息时，显示用memo1. memo1.text:=memo1.Text+inputstring;//inputstring:=mscomm1.input .
//Memo1.SelStart:=Length(Memo1.Text);
//Memo1.SelLength:=Length(Memo1.Text);//memo滚动条总显示在最新更新数据处（滚动条往下走）;
当接收数据多的时候，memo1中的数据闪动的厉害，影响观察接收数据。
而我用memo1.lines.add(inputstring),则显示下位机的一组数据就换行，不能显示满memo 就换行，比如：
sram://此行就显示个sram,以下行也是这样
ok sram2:
ok nvram:
ok 。。。。。
我想知道如果用memo1.text:=memo1.Text+inputstring;// 显示接收数据 怎么才能有效避免数据的闪动？
或者用memo1.lines.add(inputstring),怎么让它显示满行后，再换行。
如果有其他办法也行，能满足 接收数据时不闪动，显示满行后再换行。
在这儿先谢谢各位了。

Answer 1

用memo1. memo1.text:=memo1.Text+inputstring; memo就一直不换行，看到的换行是它自己折行的结果。自己定好每行显示多少组数据，用memo1.lines.Strings[memo1.lines.Count-1]=memo1.lines.Strings[memo1.lines.Count-1]+inputstring将数据附加到最后一行，当这行显示达到定好的数据长度后，再用ADD加一新行。

Answer 2

本来Add就是添加一行，add一次就增加了一行，如果不想换行就要你自己控制了，比如你下位机发来的数据有换行符，如果没有收到换行符就 Add一次，收到换行符就Memo.Lines[Memo.Lines.Count -1] := Memo.Lines[Memo.Lines.Count -1] +'数据";
不建议用Memo.Text；像你说的这样，数据量虽然不大，但是行会非常多，每次用Text都会循环一次，效率太低了.

追问

怎么判断下位机发送的数据是否有换行符呢？

追答

Pos函数就可以了， if Pos(#10, inputString) > 0 then

追问

非常感谢！