ObjectList nach Datum sortieren

[Andreas L.]

Hi,
ich versuche gerade die Items einer ObjectList nach Datum zu sortieren. Die Sortierroutine soll direkt beim hinzufügen eines Items aufgerufen werden. Erstmal mein Code:

Delphi-Quellcode:

function TCalcForm.Add(Value: TCalcFormValue):Integer;
var
  i: Integer;
begin
  fValues.Add(Value);
  fValues.Sort(CompareDate); //Fehler: [Pascal Fehler] CalcForm.pas(106): E2009 Inkompatible Typen: 'Reguläre Prozedur und Methodenzeiger'
  for i := 0 to fValues.Count -1 do //damit der Rückgabewert wieder dem ItemIndex des neuen Objekts entspricht
   begin
     if fValues[i] = Value then
       Result := i;
   end;
end;

function TCalcForm.CompareDate(Item1, Item2: Integer):Integer;
var
  Val1, Val2: TDateTime;
begin
  val1 := (fValues[Item1] as TCalcFormValue).Date;
  val2 := (fValues[Item2] as TCalcFormValue).Date;
  Result := CompareDate(Val1, Val2);
end;

Da es bei der ObjectList kein CustomSort gibt, dachte ich, dieses Sort könnte man genauso aufrufen wie hier: http://www.delphipraxis.net/internal...atum+sortieren

Die Delphi-Hilfe spuckt mir folgendes aus: procedure Sort(Compare: TListSortCompare);
Es gibt leider keinen Hilfeeintrag zu TListSortCompare. Wie komme ich trotzdem an mein Ziel?

[marabu]

Hallo Andreas,

du darfst deine Sort-Funktion CompareDate() nicht als Methode der Form deklarieren.

Grüße vom marabu

[Andreas L.]

Zitat von marabu:

Hallo Andreas,

du darfst deine Sort-Funktion CompareDate() nicht als Methode der Form deklarieren.

Grüße vom marabu

Ok, jetzt kommt nur noch "[Pascal Fehler] CalcForm.pas(107): E2010 Inkompatible Typen: 'Pointer' und 'Integer'". Wie muss ich die CompareDate-Routine umschreiben?

[marabu]

So wie dokumentiert:

Delphi-Quellcode:

function CompareDate(Item1, Item2: Pointer): Integer;
var
  Val1, Val2: TDateTime;
begin
  val1 := TCalcFormValue(Item1).Date;
  val2 := TCalcFormValue(Item1).Date;
  Result := DateUtils.CompareDate(Val1, Val2);
end;

[bitsetter]

Zitat von marabu:

So wie dokumentiert:

  val2 := TCalcFormValue(Item1).Date;

Hallo,

ein kleiner Vertipper:   val2 := TCalcFormValue(Item2).Date;