Objectlist sortieren

[Stevie]

Delphi-Quellcode:

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

...
myList.Sort(CompareItem);

[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

[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

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