| 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.
Der Befehl ist sehr einfach. Hier muss nur der werte Bereich eingehalten werden. Dieser Liegt zwischen 0 und Stringlist.count -1
