Sorry, ich kriegs einfach nicht hin: Die Fehlermeldung bleibt "Comparestrings" sei nicht in der Basisklasse.
Delphi-Quellcode:
unit frisstrings;
interface
uses classes;
Type
TMyStringsList =
Class(TStringList)
Protected
Function CompareStrings(
Const S1, S2:
String): Integer;
Override;
End;
implementation
Function TMyStringsList.CompareStrings(
Const S1, S2:
String): Integer;
Begin
Result := AnsiCompareStr(S1, S2);
End;
end.