TStringList.IndexOfObject
- Merve Yurdakul
- Dennis Balzuweit
Owned by Merve Yurdakul
Okt. 13, 2017
1 min read
Loading data...
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;