첫 번째 X 줄을 제거하여 나사로에서 TMemo 잘라 내기

Question

저는 나사로에서 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);