Question

delphi中的memo如何显示一串数据的最后一个，如下图所示

memo框中只是显示出95.0000和132.0000两个字符
for i:=b to a do
begin
if (indata[i] =$f5) and (indata[i+1]=$0b) then
begin
0',y1);

y22:=FormatFloat('00.0000',y2);
y33:=FormatFloat('00.0000',y3);
if TryStrToFloat(y11,c1) then
begin
iplot1.Channel[0].AddXY(j/h,c1);
end;
inc(j)
Memo2.Lines.Clear;
Memo2.Lines.Add(y22);
Memo3.Lines.Clear;
Memo3.Lines.Add(y33);
end;

Answer 1

你前面的数据是怎么来的？你不要添加进memo不就行了吗。

追问

数据是串口输入进来的，memo如何去掉之前的数据，只输出最后的数据，你看我上面的程序为什么加上clear还是周期性的程序245（f5的十进制）和11（ob的十进制）啊？应该怎么修改？谢谢您啦

追答

把数据用tstringlist类型用换行符分隔，取最后一个数据即可。

var f:TStringList;
begin
  ...
  ...
  f:=TStringList.Create;
  f.Delimiter:=#10;  //如果不行用#13
  f.DelimitedText:=y22;
  y22:=f[f.Count-1];
  memo2.Lines.Clear;
  memo2.Lines.Add(y22);
   f.free;
  ...
  ...
end;

追问

我改成这样了 但是在变化的过程中，怎么还是会有00.000出现呢

追答

那是接收到全是0的数据，如果你不想显示有0的，那就再过滤一下，不是0的才增加。