StringList.Exchange

Verweis: stringlisten Stringlist.Move
Uses: Classes
Eingabe: Index1,Index2(Integer)
Ausgabe: nichts
Funktion: Wechselt die beiden unter Index angegebenen Zeilen untereinander aus.

Vorbereitung: Erstellen sie eine IDE Anwendung und ziehen Sie einen TButton und TMemo auf die Form. Doppelklicken sie auf den Button und ersetzen Sie das Ereignis durch folgenden Quelltext:

Beispiel 1

procedure TForm1.Button1Click(Sender: TObject);
const
  zeilenIndex3 = '3 Dies ist die Ausgewechselte Zeile.';
var
  Liste: TStringList; //Verknüpfe Variable mit liste
begin
  Liste := TStringList.Create; // Erstelle eine Liste
  Liste.Append('0 Mit dem Befehl "Exchange"');
  Liste.Append('1 Können wir Zeilen vertauschen.');
  Liste.Append('2 Es ist Möglich diese Zeile, mit der Letzten zu tauschen.');
  // Kann auch indirekt angegeben werden
  Liste.Append(zeilenIndex3);
  // Zeige die Liste im Memo an
  Memo1.Lines := liste;
  //Meldung um den nächten Schritt zu zeigen
  ShowMessage('Nun wenden Wir den Befehl "Exchange" an.');
  //jetzt Tauschen wir index 3 gegen Index 2
  Liste.Exchange(3, 2);
  // Nun wieder in das Memo kopieren.
  Memo1.Lines := liste;
  // Gib wie immer den Speicher Frei
  Liste.Free;
end;

Der Methode “Stringlist.Exchange” tauscht die unter Index angegeben Zeilen Nummern untereinander aus. Hier in dem Beispiel wird die 3. Zeile mit dem Index 2 mit der letzten Zeile und dem Index 3 vertauscht.

Lazarus ergebnis von Stringlist.Exchange.
Stringlist.Exchange

Der Befehl ist sehr einfach. Hier muss nur der werte Bereich eingehalten werden. Dieser Liegt zwischen 0 und Stringlist.count -1