Listenobjekte sortieren

[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 if TMyObject(MyObjectlist.Items[i]).Groesse < coKleinsteGroesse.Groesse then geht es jetzt