Усечение TMemo в Лазаресе удалением первых X строк

Question

Я использую TMemo в Lazarus для отображения скользящего журнала, но я хочу ограничить его до последних 500 записей.

То, что я хотел бы сделать это (в псевдокоде):

if (log_TMemo.Lines.Count > 500) then 
    log_TMemo.Lines := log_TMemo[LinesCount - 500 to LinesCount]; 

TMemo содержит TStrings TMemo.Lines, так что я предполагаю, что хотите способ скопировать подмножество массива TStrings.

Есть ли способ сделать это, или есть другой способ?

Answer 1

Хотя он использует итерацию, this Ответ на форуме Lazarus работает отлично.

while log_TMemo.Lines.Count > 500 do 
    log_TMemo.Lines.Delete(0);