StringList Textblöcke verschieben

[DieDolly]

Ich nutze eine StringList, um den Inhalt einer Textdatei zwischenzuspeichern und vorrätig zu halten. Für diesen speziellen Typ Dateiinhalt brauche ich kein Klassensystem oder sowas.

Wie verschiebt man am besten Textblöcke von denen ich die Indexe von Anfang bis Ende weiß, komplett an eine neue Position?
Ich hätte vielleicht eine Idee aber ich frage lieber hier nochmal nach, ob ihr eine saubere oder schon fertige Lösung kennt.

[Uwe Raabe]

Also sowas wie: Verschiebe zehn Zeilen ab Zeile 80 vor die Zeile 40?

[DieDolly]

Genau. Oder andersherum Zeile 80 bis 89 an Zeile 130 verschieben. Das sind jetzt nur zufällige Zahlen.

[hoika]

Hallo,
das sind Inserts (for-Schleife) und Deletes.
Wo ist das Problem?

[DieDolly]

Mein Problem ist, dass ich nicht weiß wie man das ordentlich umsetzt. Ich würde jetzt diese sagen wir mal 20 Zeilen in eine zweite StringList speichern und in die andere neu reinspeichern.

[hoika]

Hm,
früher hatten wir mal das

geg
ges

Ist doch nur ein bisserl InsertInto (=Copy) und danach das Entfernen des Org.Strings.

Ich würde einfach ein neues (leeres) Projekt machen und das dort Testen.
Button1Click->mach was

oder wer angeben will -> DUnit(xxx)

[p80286]

Ich würde das ungefähr so realisieren

Delphi-Quellcode:

for i:=startline+countlines-1 downto startline do 
begin
  sl.insert(targetline,sl[i]);
  sl.delete(i);
end;

Ich hab nur keine Ahnung ob die Indizies passen und ob das Insert so funktioniert wie ich mir das denke.

Performanter wäre auf jeden Fall die Pointer auf den Text zu verschieben, da soweit ich weiß eine Stringliste intern ein Array of pointer to string. Aber so weit bin ich nie in die Sourcen vorgedrungen. Darum verwende ich immer noch gerne doppelt verkettete Listen.

Gruß
K-H

[Delphi.Narium]

Delphi-Quellcode:

for i:=startline+countlines-1 downto startline do
begin
  sl.insert(targetline,sl[i]);
  sl.delete(i);
end;

wenn targetline = 10
und i = 7
dann wird aus sl.insert(targetline,sl[i]); -> sl.insert(7,sl[10]);

Die nachfolgenden Zeilen werden dadurch nach "hinten" verschoben.

Die ursprüngliche Zeile 10 wird also zu Zeile 11.

Aus sl.delete(i); bzw. sl.delete(10); muss dann sl.delete(i + 1); also sl.delete(11); werden.

Deine Routine dürfte nur dann korrekt arbeiten, wenn targetline > startline ist.

Oder irre ich da?

Eventuell sowas in der Art?

Delphi-Quellcode:

procedure VerschiebeZeilen(sl : TStringList; AStartLine : Integer; ACount : Integer; ATargetLine : Integer);
var
  slTemp : TStringList;
  i      : Integer;
begin
  slTemp := TStringList.Create;
   // Die zu verschiebenden Zeilen sammeln.
  for i := AStartLine to AStartLine + ACount - 1 do slTemp.Add(sl[i]);
  // Nun die zu verschiebenden Zeilen löschen
  // Es wird immer AStartLine gelöscht, da dadurch die nachfolgenden Zeilen "nach vorne rutschen".
  for i := 1 to ACount do sl.Delete(AStartLine);
  // Und anschließend an der gewünschten Position einfügen.
  // Dabei wird mit der letzten Zeile der gesammelten Zeilen begonnen,
  // da diese bei jedem Einfügen einer neuen Zeile nach "hinten" verschoben werden.
  // Im Ergebnis bleibt dadurch die ursprüngliche Reihenfolge erhalten.
  for i := slTemp.Count - 1 downto 0 do sl.Insert(ATargetLine,slTemp[i]); // Hier war im Ursprung ein Fehler, es wurde sl[i] eingefügt, was absoluter Quatsch war und ist.
  slTemp.Free;
end;

(ungetestet hingedaddelt.)

[p80286]

Zitat von Delphi.Narium:

Deine Routine dürfte nur dann korrekt arbeiten, wenn targetline > startline ist.

Davon bin ich ausgegangen! ???

Gruß
K-H

[stahli]

Ich könnte mir vorstellen, dass es i.d.R. performanter (und einfacher) ist, die Zeilen einfach komplett abschnittsweise in eine neue StringList zu kopieren.

Die Verschiebeaktionen mit Delete und Insert halte ich für recht (zeit)aufwendig.

Das konkrete Ergebnis hängt aber sicher auch immer von der Länge der StringList und des zu verschiebenden Blockes ab.