Чтение последней строки в Tmemo в delphi

Question

После долгого простоя .... решил обратиться за помощью.

Я пытаюсь прочитать последнюю строку, отправленную Tmemo в Delphi. Я отправляю строки кода один за другим в dev. доски объявлений. Совет нуждается в разных строках кода, присланных ему каждый раз. Моя конечная цель - прочитать последнюю строку dev. доска отправляет обратно.

например

Set ATT = 7 --- >> \ отправляется Dev. доска

Дев. Ответы Совета

O.K < ----- \ полученные от dev. доска

отправьте следующую строку кода. "ATT = набор 7" команда посыла

Или

E.R.R

снова.

---

До сих пор у меня есть большая часть того, что мне нужно для работы. Я просто не могу заставить 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 только там для моей ссылки ... Я знаю, что прыгающий данные, которые он получает обратно только для справки.

Странно, что это работает иногда, и это линии. Граф отскакивает письма иногда и поэтому я думаю, что я буду об этом полном неправильном пути ...

Answer 1

Вы читаете в конце прошлого MemoRxData.Lines, так как это с нулем:

ll2 := MemoRxData.Lines.Count - 1; 

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

(Ваши имена переменных ужасны, BTW. ll2 просто ужасно читать. Вы должны использовать значащие, легко читаемые имена переменных вместо таких ужасных ярлыков.)