Parameter

(const S: String; AObject: TObject): Integer;

Beschreibung

Mit der Funktion AddObject können Strings mit zugeordneten Objekten in die String-Liste hinzugefügt werden. Als Rückgabewert gibt die Funktion hierbei den Index des jeweiligen Strings und dessen Objekt zurück. Liegt eine sortierte Liste vor und ein String soll hinzugefügt werden, welches bereits sich in der Liste befindet wird eine Exception ausgelöst und die Eigenschaft "Duplicates" wird auf dupError gesetzt. Hat die Eigenschaft "Duplicates" den Wert dupIgnore, dann wird versucht ein Duplikat hinzuzufügen und AddObject gibt den Index des Eintrages zurück.

Information

Bitte beachten Sie, dass die Objekte nicht automatisch über die TStringList-Instanz freigegeben werden. Das TStringList-Objekt ist nicht Eigentümer dieser Objekte, daher müssen diese explizit freigegeben werden.

Beispiel

procedure Test_AddObject;
var
  list : TStringList;
  Index: Integer;
  TestObj : TStringList;
begin
  TestObj := TStringList.Create;
  list := TStringList.Create;
  try
    List.Add('Dog');
    List.Add('Cat');
    Index := TestObj.AddObject('AnimalList',List);
    if Index < 0 
      then raise ('Test_AddObject Fehler')
      else showmessage(TestObj.DelimitedText);
  finally
    list.Free;
    TestObj.free;
  end;
end;

Browser nicht unterstützt