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;