Parameter

(AObject: TObject): Integer;

Beschreibung

Ermittelt den Indexwert des ersten Strings dem ein bestimmtes Objekt zugeordnet ist in einer String-Liste. Das gesuchte Objekt wird dem Parameter AObject übergeben. Kommt das Objekt an erste Stelle in der Liste vor, dann gibt IndexOfObject den Wert 0 zurück usw. Befindet sich das Objekt nicht in der jeweiligen Liste gibt die Funktion IndexOfObject den Wert -1 zurück.

Beispiel

procedure Test_IndexOfObject;
var
  index : Integer;
  list : TStringList
begin
  ErrorText := 'Test_IndexOfObject';
  list := TStringList.create;
  try
    list.Add('Papagei');
    list.Add('Barsch');
    index := TestObj.AddObject('Tiere',list);
    if (TestObj.IndexOfObject(list) <> index)
     then raise ('Test_IndexOfObject Fehler')
     else showmessage(TestObj.DelimitedText);
  finally
    list.free;
  end;
end;

Browser nicht unterstützt