Objectlist sortieren

[michael.cohrs]

Danke Steve

aber ich kriegs irgendwie nicht hin,

woher bekomme ich (TMyObject(Item1).ArtNr, TMyObject(Item2).ArtNr??

wenn ich mein Objekt aus der Objektliste hole dann habe ich doch nur 1 Objekt(TMyObject(Item1).ArtNr) aber noch nicht das 2te??

ohman ich peil es nicht

[michael.cohrs]

ich hole mir:

oArtVal := List[i] AS TMyVal

... und wie soll es dann weitergehen??

[stahli]

Das übernimmt die Liste automatisch für Dich.

Du musst nur eine Funktion übergeben, die im Result -1 zurück gibt, wenn der erste Parameter kleiner ist als der zweite, bzw. 1, wenn er größer ist und 0 wenn beide gleich sind.

Die Liste geht dann selbst durch ihre Einträge und sortiert sie.

Also kannst Du hier viel einfacher denken.

[himitsu]

Wenn man öfters sortiert, dann kann man die TList auch ableiten und die Sortierung direkt integrieren (override),
bzw. gleich eine Sortierte Liste verwenden, da geht dann das Suchen auch schneller.
Einigen Listen kann man den Comparer auch direkt im Constructor mitgeben.

Und falls man nur einmal an einer Stelle sortieren will und Delphi nicht zu alt ist, dann geht's eventuell auch anonym.

Delphi-Quellcode:

myList.Sort(function(Item1, Item2: Pointer): Integer;
  begin
    Result := CompareValue(TMyObject(Item1).ArtNr, TMyObject(Item2).ArtNr);
  end);

[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

[michael.cohrs]

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

[sahimba]

Zitat von himitsu:

dann geht's eventuell auch anonym.

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