TStrings-> PERFORMANT! prüfen ob String mehrfach enthalten?

[toms]

Hallo

eine Schleife zu basteln und das ganze mit Hilfsvariablen lösen. IndexOf macht genau das und bricht ab, wenn der String gefunden wurde.

Falls die Daten sortiert sind, könnte man eine binäre Suche machen.

Delphi-Quellcode:

function TStrings.IndexOf(const S: string): Integer;
begin
  for Result := 0 to GetCount - 1 do
    if CompareStrings(Get(Result), S) = 0 then Exit;
  Result := -1;
end;