Satty67, in der letzten von mir geposteten Version ist eine angepasste SkipList, be der Du nur die virtuelle Methode 'CompareKeys' überschreiben musst, so etwa:
Delphi-Quellcode:
Type
TMySkipList = Class (TcsStringSkipList)
Protected
Function CompareKeys (Const aKey1, aKey2 : String) : ShortInt; Override;
End;
...
Function TMySkiplist.CompareKeys (Const aKey1, aKey2 : String) : ShortInt;
Begin
// ..Hier die eigene 'Compare'-funktion
End;
Und -wupps- hast Du schon einen Vorteil der
OOP: Überschreiben von Methoden zur Anpassung der Funktionalität.
Diese "TMySkipList" kannst Du dann verwenden.
P.S.: Wieso verbesserst Du deinen Code nicht mit dem SkipList-Sortieren?