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