Einzelnen Beitrag anzeigen

MicMic

Registriert seit: 26. Mai 2018
296 Beiträge
 
Delphi 10.2 Tokyo Starter
 
#3

AW: StringList CustomSort

  Alt 10. Sep 2018, 21:11
Das mit der Sortierreihenfolge habe ich nicht ganz so verstanden wegen Index 0
Habe aber mal eben meine CustomSort erweitert.
Code:
Function Sort1(List: TStringList; Index1, Index2: Integer): Integer;
Begin
 Result := 0;
 If Assigned(List) Then
 Begin
  If TMStringList(List).SortUp = 0
  Then Result := -AnsiCompareText(List[Index1],List[Index2])
  Else Result := AnsiCompareText(List[Index1],List[Index2])
 End;
 // hinzugefügt
 if Index1 = 0 then Result := -1;
 if Index2 = 0 then Result := +1;
End;
So bleibt der erste Eintrag immer bei Index 0. Wenn das so bleibt, ist's ja super einfach :=) Also mal Dankeschön. Aber ich habe mal etwas probiert. Wenn ich für Index1 = 0 bei Result +1 und bei Index2 = 0 bei Result -1 angebe, gibt's ein Fehler "Listenindex außerhalb des gültigen Bereichs". Aber so wie oben geht es. Würde aber gerne wissen, warum andersrum ein Fehler kommt. Damit ich's halt verstehe mit diesem CustomSort.

Aber nun muss ich ins Bettchen
Aber mal super Dankeschön. Mal wieder einen Schritt weiter und kann nun schön träumen *lach

Michael
  Mit Zitat antworten Zitat