IndexOf case sensitive / Performance verbessern

[himitsu]

IndexOf verwentet intern CompareStrings und diese Funktion nutzt AnsiCompareText ... also CaseInsensitive.

Leite die Klasse (TStringList?) ab und überschreib CompareStrings (dieses ist virtual) mit einer eigenen Funktion.

Delphi-Quellcode:

function {TStrings}.CompareStrings(const S1, S2: string): Integer;
begin
  Result := AnsiCompareStr(S1, S2);
end;