Цитата:
|
Сообщение от 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;
|
Я поторопился, сам догадался.
Все равно спасибо.
