Liste Sortieren nach 2 Parametern

[fajac]

Delphi-Quellcode:

function CompareData (Data1, Data2 : Pointer) : Integer
begin
  if PData(Data1)^.X = PData(Data2)^.X then
    begin
      if PData(Data1)^.Y = PData(Data2)^.Y then
        Result := 0
      else if PData(Data1)^.Y > PData(Data2)^.Y then
        Result := 1
      else
        Result := -1;
    end
  else if PData(Data1)^.X > PData(Data2)^.X then
    Result := 1
  else
    Result := -1;
end;