Проблема с Мемо

[boostman]

Дай екзешник посмотрю может не так объяснил

[Stilet]

Неработает

Эти коды нужно подключать к OnKEyPressed в моем случае или к OnKeyUp в случае Димона. В обьекте инспекторов на странице событий

[D-mon]

Вставь код

 
if(Key=13)then  
 begin  
   Memo1.Lines[Memo1.Lines.Count-1]:='Lines: +IntToStr(Memo1.Lines.Count-1)+' 111 '+Memo1.Lines[Memo1.Lines.Count-1]+' 111'+#13#10;  
   Memo1.Lines.Delete(Memo1.Lines.Count);     Memo1.Lines.Delete(Memo1.Lines.Count-1);  
   end;

В KeyUp Мемо... Зачем те ехе???

Учи мат. часть...

[boostman]

Заработало! Спасибо! А че с 0 строчки считает, мне спервой надо,
а то появляется парт 0, а мне надо чтоб начался счет с 1

[Alter]

В списках, нумерация начинается с НУЛЯ! А так же в динамических массвах.
Поэтому, Нулевая строка есть Первая.

[puporev]

Там где выводится номер строки добавляй +1.