|
(Moderator)
Registriert seit: 6. Mai 2005
Ort: Berlin
4.956 Beiträge
Delphi 2007 Enterprise
|
Re: Liste Sortieren nach 2 Parametern
27. Aug 2009, 07:25
Oder etwas kompakter:
Delphi-Quellcode:
function CompareData (Data1, Data2 : Pointer) : Integer
begin
Result := PData(Data1)^.X - PData(Data2)^.X;
If Result = 0 Then
Result := PData(Data1)^.Y - PData(Data2)^.Y;
end;
"Wenn ist das Nunstruck git und Slotermeyer? Ja! Beiherhund das Oder die Flipperwaldt gersput!"
(Monty Python "Joke Warefare")
|