通过删除前X行来截断Lazarus中的TMemo

Question

我在Lazarus中使用TMemo来显示滚动日志，但我想将其限制为最后500个条目。

我想做的是（伪代码）：

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

TMemo包含TStrings TMemo.Lines，所以我想想要一种方法来复制TStrings数组的子集。

有没有办法做到这一点，还是有另一种方式？

Answer 1

虽然它使用迭代，但Lazarus论坛中的this响应完美无缺。

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