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.

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;