Da schreibt man sich flugs eine einfache billige Methode/Routine und ruft die auf.
Delphi-Quellcode:
function IndexOfString(List: TObjectList; const SearchStr: string): integer;
var
i: integer;
Obj: TDeinObject;
begin
Result := -1;
for i := 0 to List.Count - 1 do
begin
Obj := List[i] as TDeinObject;
if Obj.Stringfeld = SearchStr then
begin
Result := i;
break;
end;
end;
end;
Die List wird sequentiell durchlaufen und die enthaltenen Objekte daraufhin untersucht, ob deren Stringfeld mit dem Suchstring übereinstimmt. Wenn ja, wird der Index des ersten passenden Objekts zurückgegeben und die Schleife abgebrochen. Entspricht kein Objekt den Kriterien, ist der Rückgabewert -1 (am Anfang der Funktion festgelegt).