在delphi中阅读Tmemo中的最后一行

Question

尝试了很长时间后。。。。决定寻求帮助。

我正在努力阅读德尔福的Tmemo的最后一行。我将一行行代码一行地发送到开发板，开发板每次都需要发送不同的代码行。我的最终目标是读回dev.board发送回的最后一行。

E.G

设置ATT=7--->>\发送到开发板

Dev。董事会回复

O.K<-----\从开发板收到

发送下一行代码。

或

E.R.R

再次发送"set att=7"命令。

---

到目前为止，我已经完成了我需要的大部分工作。我就是不能让德尔斐读到最后一行的tmemo。

我试过

procedure TReaderProgrammer.Button3Click(Sender: TObject );
var 
  RxData : string; 
  LL : string; 
  ll2: system.integer;
begin
  LL:= memorxdata.lines.count.ToHexString;
  LL2:=memorxdata.Lines.Count;
  if ComPort1.Connected then
  begin
     showmessage(ll);
     ComPort1.WriteStr(memorxdata.Lines[ll2]+#13+#10);
  end;
end;

展示信息仅供我参考。。。我知道它会再次将收到的数据反弹回来，仅供参考。

奇怪的是，它有时会起作用，而这句话。计数有时也会反弹字母，所以我想我完全错了。。。

Answer 1

您正在阅读MemoRxData.Lines的末尾，因为它是基于零的：

ll2 := MemoRxData.Lines.Count - 1;
ComPort1.WriteStr(MemoRxData.Lines[ll2] + #13#10;

（你的变量名太可怕了，BTW.ll2读起来太可怕了。你应该使用有意义的、易于阅读的变量名，而不是这样糟糕的快捷方式。）