Stringliste indexOfName IndexofValue

[Koloss]

Diese Funktion reicht doch, das er sehr performant sein muss habe ich hier nicht heraus gelesen

Code:

function IsValueInStringList(strList: TStrings; Value: String): Boolean;
var
  i: integer;
begin
  Result := False;
  for i := 0 to strList.Count do
    if strList.ValueFromIndex[i] = Value then
    begin
      Result := true;
      break;
    end;
end;

Wenn man die TStrings als TStringList anlegt kann man auch davor strList.Sort verwenden.
Die TStrings sollten mit TStringList erstellt werden