Thema: Delphi Listenobjekte sortieren

Einzelnen Beitrag anzeigen

Relicted

Registriert seit: 24. Jan 2006
Ort: Iserlohn
646 Beiträge
 
Delphi 10.4 Sydney
 
#8

Re: Listenobjekte sortieren

  Alt 4. Dez 2008, 08:26
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
  Mit Zitat antworten Zitat