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;