StringList Textblöcke verschieben

[DieDolly]

Die Blöcke haben maximal 30 Zeilen und die Datei ist bis zu 80000 Zeilen lang.

[Delphi.Narium]

Bei der Menge kann die Kombination aus Insert und Delete schon deutlich in die Laufzeit gehen.

[DieDolly]

Ich habe gerade das Beispiel von der vorherigen Seite getestet mit dieser Datei

Zitat:

1
2
3
4
5

6
7
8
9
10

11
12
13
14
15

Und diesem Aufruf und ich bekomme den Out of bounce Fehler
VerschiebeZeilen(sl, 5, 6, 18); // Block 5-10 soll nach 15 verschoben werden Wenn ich 0, 5, 10 eingebe, kommt das hier als Ergebnis. Scheint etwas wackelig zu sein

Zitat:

6
7
8
9
10

11
12
13
14
6
7
8
9
10

15