TStringlist.AddObject

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.

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;