StringList CustomSort

[himitsu]

Zitat:

Delphi-Quellcode:

   //========================================================
   //Jetzt erst der Vergleich der eigentlichen Daten
   //========================================================
   if AnsiCompareText(List[Index1],List[Index2])>0 then
   begin
      Result:=1;
      Exit;
   end;
   if AnsiCompareText(List[Index1],List[Index2])<0 then
   begin
      Result:=-1;
      Exit;
   end;

Delphi-Quellcode:

   //========================================================
   //Jetzt erst der Vergleich der eigentlichen Daten
   //========================================================
   Result := AnsiCompareText(List[Index1],List[Index2])

Delphi-Quellcode:

function Sort1(List: TStringList; Index1, Index2: Integer): Integer;
begin
  if Index1 = 0 then  // Der der Index 0 hat soll nach oben sortiert werden.
    Result := -1
  else if Index2 = 0 then
    Result := 1
  else
    Result := AnsiCompareText(List[Index1], List[Index2]);
end;