Stringliste indexOfName IndexofValue

[bernhard_LA]

bin jetzt hier gelandet :

Delphi-Quellcode:

Type      TStringlistHelper = class helper for TStringlist

           function IndexofValue( ValueStr : string) : Integer;
        
         end;

function TStringlistHelper.IndexofValue ( ValueStr : string) : Integer;
  var   i : Integer;
begin
    i := 0;
    repeat
        if ( Pos(ValueStr, self[i])>0 ) then
            begin
              Result := i;
              exit
            end;

        Inc(i);

    until i >  Self.Count-1;

    if i >  Self.Count-1 then  Result := -1;

end;

gibt es bessere / schnellere Lösungen ?