Liste Sortieren nach 2 Parametern

[Blup]

Zitat von franktron:

Danke für die Antworten ich habe das jetzt so gelöst

Delphi-Quellcode:

function CompareNamesY(Item1, Item2: PData): Integer;
begin
  Result:=Round(Item1^.Y+(1/Item1^.X)-Item2^.Y+(1/Item2^.X));
end;

Das funktioniert nicht, bzw. liefert das Sortieren dann nicht das oben gewünschte Ergebnis.

Da zuerst nach Y und erst innerhalb gleicher Y nach X sortiert werden soll, eher so:

Delphi-Quellcode:

function CompareData (Data1, Data2 : Pointer) : Integer
begin
  Result := PData(Data1)^.Y - PData(Data2)^.Y;
  If Result = 0 Then
    Result := PData(Data1)^.X - PData(Data2)^.X;
end;