[arman2001]

В Memo загружены данные содержащие 100 строк. И каждые 3 минуты добавляются новые строки с данными.

Мне нужно использовать всегда 10 ПОСЛЕДНИХ строк.

Как это можно сделать?

Подскажите, пожалуйста код.

[ART]

А подумать самому никак?

Код:

procedure GetLastStrings;
var
 i:integer;
begin
Listbox1.Clear;
for i := memo1.Lines.Count  -  11 to memo1.Lines.Count  -  1 do begin //без проверки на выход за пределы
 listbox1.Items.Add(memo1.Lines[i]); //добавляем в Listbox
end;
end;

[arman2001]

Сообщение от ART

А подумать самому никак?

Код:

procedure GetLastStrings;
var
 i:integer;
begin
Listbox1.Clear;
for i := memo1.Lines.Count  -  11 to memo1.Lines.Count  -  1 do begin //без проверки на выход за пределы
 listbox1.Items.Add(memo1.Lines[i]); //добавляем в Listbox
end;
end;

Я поторопился, сам догадался.
Все равно спасибо.