通過刪除第一個X行來截斷Lazarus中的TMemo

Question

我在Lazarus中使用TMemo來顯示滾動日誌，但我想限制它到最後的500個條目。

我想要做的是（僞代碼）：

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

TMemo包含字符串列表TMemo.Lines，所以我猜想辦法複製的字符串列表數組的一個子集。

有沒有辦法做到這一點，或者有另一種方式？

Answer 1

雖然它使用迭代，但在Lazarus論壇中的響應this完美無缺。

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