在delphi中读取Tmemo的最后一行

Question

经过很长时间的尝试....决定寻求帮助。

我正在尝试阅读发送到Delphi中的Tmemo的最后一行。 我正在将代码行一一发送给开发人员。 登上开发人员。 电路板每次都需要发送不同的代码行。 我的最终目标是回读开发人员的最后一行。 板发回。

例如

设置ATT = 7 --- >> \\发送给dev。 板

开发人员 董事会答复

OK <----- \\从dev处收到。 板

发送下一行代码。

要么

呃

再次发送“ set att = 7”命令。

---

到目前为止，我已经完成了大部分工作。 我只是无法让Delphi阅读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;

showmessage仅用于我自己的参考...我知道它会将收到的数据重新弹出以供参考。

奇怪的是，有时它行得通，而且行。 Count有时还会反弹回字母，所以我想我要用一种完全错误的方式来解决这个问题...

Answer 1

您正在阅读MemoRxData.Lines的结尾，因为它是从零开始的：

ll2 := MemoRxData.Lines.Count - 1;

ComPort1.WriteStr(MemoRxData.Lines[ll2] + #13#10;

（顺便说一句，您的变量名很糟糕， ll2简直让人ll2 。您应该使用有意义且易于阅读的变量名，而不要使用如此可怕的快捷方式。）