Objectlist sortieren

[michael.cohrs]

hallo stahli,

bitte hast du ein beispiel für mich? ichkriegs einfach nicht hin.

ich hole mir das 1te object aus der liste, damit habe ich jedoch nur die erste nummer
...und nun?

*verzweifelt bilck

[michael.cohrs]

ich benutze Delphi 6

[Stevie]

Die Liste hat eine Sort Methode. Dieser Sort Methode musst zu sagen, wie sie 2 Items vergleichen soll (das ist die CompareItem Funktion).
Da du gesagt hast sie soll anhand der ArtNr vergleichen, macht das diese Funktion.

Siehe auch: https://de.wikipedia.org/wiki/Sortie...rtes_Sortieren

[michael.cohrs]

Hallo Stevie,

ich hab das theoretisch schon verstanden, weiss jedoch nicht wie ich das praktisch anwenden soll
deshalb dieser "Hilferuf" nach einem praktischem Beispiel.


- ich hol mir das 1rste objekt mit den eigenschaften artnummer.
- dann das nächste?
...ich versths nicht

[p80286]

Du holst Garnichts!
Aus der D7 OH:

Zitat:

Mit Sort wird für die Liste ein QuickSort-Algorithmus gestartet, der auf der Vergleichsfunktion Compare basiert.

Delphi-Syntax:

procedure Sort(Compare: TListSortCompare);

Das sieht dann ungefähr so aus:
mylist.Sort(CompareItem); Gruß
K-H

[Stevie]

Ich hab dir doch den Code gepostet, ruf doch einfach .Sort auf deiner Liste auf.

[michael.cohrs]

Danke aber...was ist denn nun wieder TListCompare????

[stahli]

Stevie hat den kompletten Beispielcode schon gepostet.
Mehr brauchst Du nicht.

Du übergibst nur die Sortiervorgabe (Vergleichsfunktion) an die Sortiermethode und der Rest geht automatisch.


PS: Falls Du mal die Sortierung rumdrehen willst, kannst Du das z.B. so machen:

Delphi-Quellcode:

function CompareItem(Item1, Item2: Pointer): Integer;
begin
   Result := Math.CompareValue(TMyObject(Item1).ArtNr, TMyObject(Item2).ArtNr);
  if (Absteigend) then
    Result := -Result;
end;

Und falls Du statt nach ArtNr nach etwas anderem Sortieren willst, kannst Du das einfach in der Funktion ändern. So könnte man z.B. auch Personen nach Vornamen aufsteigend und bei Gleichheit anschließend Alter absteigend sortieren.
Die Funktion muss nur eindeutig -1, 1 oder 0 zurück liefern. Zufallswerte wären natürlich problematisch.

[sahimba]

Zitat von himitsu:

dann geht's eventuell auch anonym.

lass das mal nicht den Uhl oder den Bosbach hören...

[himitsu]

Das TListSortCompare ist eine "Signatur" (Definition eines Funktions-Kopfes)
und eine Variable/Property/Parameter damit ist ein Zeiger auf so eine Funktion/Prozedur.

Du kannst da also JEDE Funktion übergeben, welche auch so aussieht.
Egal wie deren Name lautet. Es kommt nur auf die Parameter-Typen und den Result-Typ drauf an.