Parameter

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

Beschreibung

InsertObject fügt einen String über den Parameter "S" in der angegeben Position mit dem Parameter "Index" in eine Liste hinzu und ordnet dem String ein Objekt über "AObject" zu. Wenn Index 0 ist, wird der String an den Anfang der Liste eingefügt. Ist Index 1, wird der String an der zweiten Position eingefügt usw.

Beispiel

procedure Test_InsertObject;
var
  list : TStringList;
begin
  ErrorText := 'Test_InsertObject';
  list := TStringList.create;
  try
    list.Add('Hai');
    list.Add('Loewe');
    TestObj.InsertObject(2,'Another Animallist',list);
    if (TestObj.IndexOfObject(list) <> 2) then
      raise ('Test_InsertObject Fehler');
  finally
    list.free;
  end;
end;

Browser nicht unterstützt