IndexOf case sensitive / Performance verbessern

[himitsu]

also bei mir geht das (selbst mit der "falschen" Sichbarkeit > Private)

Delphi-Quellcode:

Uses Classes;

Type
  TMyStringsList = Class(TStringList)
  Protected
    Function CompareStrings(Const S1, S2: String): Integer; Override;
  End;

Function TMyStringsList.CompareStrings(Const S1, S2: String): Integer;
  Begin
    Result := AnsiCompareStr(S1, S2);
  End;

ach ja, falls es wen interessiert, es wurde natürlich in der Basisklasse deklariert:
(ist also bei allen Nachkommen von TStrings so änderbar)

Delphi-Quellcode:

TStrings = Class(TPersistent)
Protected
  Function CompareStrings(Const S1, S2: String): Integer; Virtual;