Listenobjekte sortieren

[schuetzejanett]

hallo,

ich habe eine Klasse Playercollection die Player in einer liste speichert
Eine eigenschaft der Klasse Player ist der integerwert score.
Nun wollte ich die einzelnen Spieler nach den Punkten(score) sortieren.

Dafür habe ich gedacht ich speichere die Player in einem array und wende auf dieses array ein sortierverfahren an.

Allerdings komme ich nun etwas durcheinander, wenn ich den quicksort anwende da ich immernur die punkte ändere aber nicht die player genau.
Wie sortiere ich also die punkte und nicht nur den punktestand?

Delphi-Quellcode:

procedure TPlayerCollection.SortScores(var field : Array  of TPlayer) ;
var i : integer;
begin 
  getField(field); //feld änhält Playerobjekte
  quicksort(field, 0, self.Count-1);
end;

procedure TPlayerCollection.quicksort(var Field: array of TPlayer; ilow,
  ihigh: integer);
var
   Low, High, Mid, T: Integer;
 begin
   Low := iLow;
   High := iHigh;
   Mid := Field[(Low + High) div 2].score;
   repeat
     while Field[Low].score < Mid do Inc(Low);
     while Field[High].score > Mid do Dec(High);
     if (Low <= High) then
     begin
       T := Field[Low].score;
       Field[Low].score :=  Field[High].score;
       Field[High].score := T;
       Inc(Low);
       Dec(High);
     end;
   until Low > High;
   if High > iLow then QuickSort(Field, iLow, High);
   if Low < iHigh then QuickSort(Field, Low, iHigh);
end;

oder würdet ihr mir ein anderes Suchverfahren empfeheln, da es sich um höchstens 10 Playerobjekte handelt die sortiert werden müssten.

[Luckie]

Wieso ein noch mal ein Array? Du hast doch schon alle Spieler in eine Objektlist. Schreib dir doch einfach eine Methode, die dir diese Liste sortiert. Wenn du deine Objektliste von TList abgeleitet hast, dann kannst du die Methode Exchange nutzen, um zwei Items zu vertauschen. Ein einfaches BubbelSort sollte reichen.

[schuetzejanett]

danke für den Tipp, an die Möglichkeit habe ich gar nicht gedacht.

[Gausi]

Eine TList oder TObjectlist hat auch eine Methode Sort. Dafür muss man nur eine Compare-Funktion angeben. Ein Beispiel wäre evtl. so:

Delphi-Quellcode:

// Eine Compare-Funktion könnte so aussehen
function ScoreSort(item1,item2:pointer):integer;
begin
    result := TPlayer(item1).score <= TPlayer(item2).Score;
end;

// Aufruf geht dann so 
Playlist.Sort(ScoreSort);

[mojo777]

Delphi-Quellcode:

// Aufruf geht dann so
Playlist.Sort(@ScoreSort);

[Tod787]

Hi, habe ein ähnliches Problem allerdings hab ich das nicht ganz verstanden. Ich suche eine Funktion mit der ich aus meiner Objektliste das Objekt bestimmen kann, welches den kleinsten Wert im Atribut "Größe: Single" besitzt.

[mkinzler]

Wenn du das öfterst brauchst -> Liste nach diesem Feld sortieren, sonst durch liste gehen und kleinsten Wert und dessen Objekt merken

[Relicted]

wenn du nur den kleinsten Wert haben willst ohne die Liste zu sortieren dann:

Delphi-Quellcode:

var
  coKleinsterEintrag : TDeineKlasse;


if Self.Count > 0 then
  coKleinsterEintrag := Self.Items[0];

for i := 0 to Self.Count - 1 do
begin
  if Self.Items[i].Wert < coKleinsterEintrag.Wert then
    coKleinsterEintrag := Self.Items[i];
end;

so aufrufen wenn du dich innerhalb der Liste befindest, wenn du ausserhalb die Bestimmung durchführen willst dann das "Self." durch deine Objectlist ersetzen.

Gruß
reli

[Tod787]

Also ich hab das mal versucht bei mir zu übertragen allerdings funktioniert das noch nicht so richtig. Bei der If-Abfrage kommt eine Fehlermeldung dass bei MyObjectlist.Items[i].Groesse das Feld .Groesse nicht deklariert wäre.

Delphi-Quellcode:

function TMyClass.GetNextGroesse: TMyObject;
var i: Integer; coKleinsteGroesse : TMyObject;
begin
  if MyObjectlist.Count > 0 then
    coKleinsteGroesse := TMyObject(MyObjectlist.Items[0]);

  for i := 0 to MyObjectlist.Count - 1 do
    begin
      if MyObjectlist.Items[i].Groesse < coKleinsteGroesse.Groesse then
        coKleinsteGroesse := MyObjectlist.Items[i];
    end;
  result := KleinsteGroesse;
end;

Edit:

mit

Delphi-Quellcode:

if TMyObject(MyObjectlist.Items[i]).Groesse < coKleinsteGroesse.Groesse then

geht es jetzt :)

[DeddyH]

Und bei

Delphi-Quellcode:

TMyObject(MyObjectlist.Items[i]).Groesse

?