Liste Sortieren nach 2 Parametern

[franktron]

Ich möchte eine TList Sortieren und zwar habe ich folgende TList

Delphi-Quellcode:

PData = ^TData;
  TData = Record
    X,Y   : Longint;
  End;

und ich will jetzt folgendes Ergebnis haben.

Y X
1 1
1 2
1 3
2 1
2 2
u.s.w

wie kann ich das machen.

[mkinzler]

Den Vergleichsalgorithmus entsprechend anpassen

[franktron]

Zitat:

Zitat von mkinzler

Den Vergleichsalgorithmus entsprechend anpassen

Da habe ich ja gerade ein Brett vorm Kopf und mir fällt nicht ein wie :wall:

[mkinzler]

Der Methode Tlist.Sort() kannst du eine Vergleichsfunktion mitgeben.

[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;

[alzaimar]

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;

[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;

[taaktaak]

@franktron: ... und das funktioniert? Ich dachte als Funktionsergebnis wird 1, 0 oder -1 erwartet! In deinem Fall könnten bei entsprechenden Y-Werten ja auch andere Ergebnisse zurückgeliefert werden.

Grundsätzlich sollte die "Berliner-Lösung" von alzaimar effizienter sein.

[xZise]

Nein ;) Es will nur "kleiner 0, 0 oder größer 0":

Delphi-Quellcode:

while SCompare(SortList^[I], P) < 0 do
  Inc(I);
while SCompare(SortList^[J], P) > 0 do
  Dec(J);

Zumindest unter Delphi 2009!

MfG
xZise

[gammatester]

Zitat:

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 kann doch gar nicht funktionieren! Für Item1^.X = 2, Item2^.X = 1, Item1^.Y = 1, Item2^.Y= 4 hat man round(1 + 0.5 - 4 + 1) = round(-1.5) < 0. Das Ergebnis sollte aber doch positiv sein, weil jaItem1^.X > Item2^.X ist. (Oder habe ich was übersehen?)

Gruß Gammatester