TStringList.Exchange

Parameter

(Index1, Index2: Integer);

Beschreibung

Über die Funktion Exchange können die Positionen von zwei Strings in einer String-Liste einfach ausgetauscht werden. Die Funktion Exchange ordnet die Strings in der jeweiligen Liste neu. Mit Index1 und Index2 wird angegeben, welche Strings ausgetauscht werden sollen. Beinhalten die Strings noch zugeordnete Objekte, dann ändert die Funktion auch den Indexwert des Objektes.

Hinweis

Bei einer sortierten Liste sollte Exchange nur verwendet werden, wenn zwei identische Strings mit unterschiedlichen Objekten verknüpft sind ausgetauscht werden. Da die Funktion nicht überprüfen kann ob die Liste sortiert ist kann die Reihenfolge der Liste zerstört werden.

Beispiel

procedure Test_Exchange;
var
  testcontent : String;
  TestObj : TStringList;
begin
  TestObj := TStringList.Create;
  try
    TestObj.Add('Baer');
    TestObj.Add('Loewe');
    testcontent := TestObj.Strings[1];
    TestObj.Exchange(0,1);
    if (testcontent <> TestObj.Strings[0]) 
      then raise ('Test_Exchange Fehler')
      else showmessage(TestObj.DelimitedText);
  finally
    TestObj.free;
  end;
end;