schnellere Alternative zu StringListe.IndexOf() gesucht

[himitsu]

CompareStrings ist eine interne Funktion, welche die Stringliste für die Vergleiche verwendet.

Delphi-Quellcode:

type
  TNaturalStringList = class(TStringList)
  protected
    function CompareStrings(const S1, S2: string): Integer; override;
  public
    constructor Create;
  end;

function TNaturalStringList.CompareStrings(const S1, S2: string): Integer;
begin
  Result := StrNatCompare(S1, S2);
end;

constructor TNaturalStringList.Create;
begin
  Sorted := True;
  Duplicates := dupIgnore;
end;