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

[Mirco]

Hallo
Ich such mir schon einen Wolf.
Wie kann ich die letzten 25 Zeilen aus einem Memo in ein anderes schreiben?
Gruss
Mirco

[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!

[chaosben]

@Mirco:
Falls du dich fragst: Hä? Was ist das denn? ... dann noch folgende Erklärung dazu:
Der Inhalt eines Memo-Feldes wird in seiner Eigenschaft "Lines" gespeichert. Diese Eigenschaft ist vom Typ "TStrings", was eine Liste von String's darstellt.
Ein TStrings-Objekt hat 2 für dich interessante Eigenschaft:
Count -> Anzahl der Strings (bei einem Memo die Anzahl der Zeilen im Memo)
Strings -> Die Eigenschaft mit der du die einzelnen Strings referenzieren kannst.
Wenn du also die letzten 25 Zeilen kopieren willst, dann kannst du die von Cyberbob vorgeschlagene Methode nutzen.
Wichtig: Lass die Schleife nicht bis Memo1.Lines.Count laufen sondern nur bis Memo1.Lines.Count-1 ... sonst gibts eine AV.

[mkinzler]

IMHO müßte es aber
For i := Memo1.Lines.Count - 26 to Memo1.Lines.Count-1 do oder besser

Delphi-Quellcode:

i1 := Memo1.Lines.Count - 26; 
if i1 < 0 then i1 := 0;
For i := i1 to Memo1.Lines.Count-1 do

[Edit: zu langsam]

[gfjs]

For i := Memo1.Lines.Count - 26 to Memo1.Lines.Count-1 do Muss m.E. heißen:

For i := Memo1.Lines.Count - 25 to Memo1.Lines.Count-1 do Gruß Jürgen

[Cyberbob]

Zitat von chaosben:

@Mirco:
Wichtig: Lass die Schleife nicht bis Memo1.Lines.Count laufen sondern nur bis Memo1.Lines.Count-1 ... sonst gibts eine AV.

Ich habs ausprobiert, ohne AV!

[BlackJack]

dann war das nur glück
weil eigentlich laufen for-schleifen bei so sachen immer von 0 bis AnzahlEinträge-1.

[Mirco]

vielen Dank für die Hilfe.
Viele Grüsse, Mirco