Und das sind auch ganz sicher TDate-Werte?
[edit] Gerade mal mit der D2009-Trial ausprobiert:
Delphi-Quellcode:
...
type TMyClass = class
private
FDatum: TDate;
public
property Datum: TDate read FDatum write FDatum;
end;
...
function SortProc(Item1, Item2: Pointer): Integer;
begin
if TMyClass(Item1).Datum > TMyClass(Item2).Datum then
Result := 1
else if TMyClass(Item1).Datum < TMyClass(Item2).Datum then
Result := -1
else
Result := 0;
end;
procedure TForm1.FormCreate(Sender: TObject);
var dummy: TMyClass;
begin
FList := TObjectList.Create;
dummy := TMyClass.Create;
dummy.Datum := StrToDate('01.03.2008');
FList.Add(dummy);
dummy := TMyClass.Create;
dummy.Datum := StrToDate('01.02.2008');
FList.Add(dummy);
dummy := TMyClass.Create;
dummy.Datum := StrToDate('01.03.2007');
FList.Add(dummy);
dummy := TMyClass.Create;
dummy.Datum := StrToDate('01.04.2009');
FList.Add(dummy);
dummy := TMyClass.Create;
dummy.Datum := StrToDate('01.10.2008');
FList.Add(dummy);
FList.Sort(@SortProc); //FList ist vom Typ TObjectList
end;
Tut genau, wie es soll[/edit]