d. letzten 25 Zeilen aus einem Memo in ein anderes schreiben

[Cyberbob]

Versuchs mal so:

Delphi-Quellcode:

For i := Memo1.Lines.Count - 25 to Memo1.Lines.Count do
begin
  Memo2.Lines.Add(Memo1.Lines.Strings[i]);
end;

Es müssen jedoch mindesten 25 Zeilen in Memo1 vorhanden sein, sonst kommt ne AV!