Objekte nach Datum Sortieren

[Khabarakh]

Zitat von freak4fun:

Ich habe eine Klasse TTerminKalender mit einer ObjectList, die Elemente meiner Klasse TTermin enthält.

Mich wundert ein wenig, dass es noch niemand vorgeschlagen hat , sei's drum: Wenn du schon eine TObjectList hast, wie wäre es dann mit TList.Sort (Quicksort)?

[freak4fun]

Zitat von Khabarakh:

Zitat von freak4fun:

Ich habe eine Klasse TTerminKalender mit einer ObjectList, die Elemente meiner Klasse TTermin enthält.

Mich wundert ein wenig, dass es noch niemand vorgeschlagen hat , sei's drum: Wenn du schon eine TObjectList hast, wie wäre es dann mit TList.Sort (Quicksort)?

Kann ich da angeben wonach sortiert wird?

[DeddyH]

Du musst sogar eine Vergleichsfunktion schreiben und diese der Sort-Methode übergeben.

[Hansa]

Zitat von freak4fun:

myTerminKalender.Sort;

Und was ist myTerminKalender ? Eine TObjectList oder was ???

[DeddyH]

Das ist die Klasse, die die ObjectList enthält

[Hansa]

Bei mir geht das so nicht :

DatenObjektListe.Sort;//(@VergleicheWerte); Wer Fragen stellt, der sollte zumindest mal die eigene Syntax überprüfen und die Compilermeldungen nicht ignorieren. Da kann doch fast nur sowas kommen :

Zitat von D7-Compiler:

[Fehler] Ausg.pas(155): Nicht genügend wirkliche Parameter

8)

[DeddyH]

Seine Klasse hat anscheinend eine eigene Sort-Methode implementiert, steht ja im Ausgangspost. Nur wäre es dort sinnvoll, die Sort-Methode der enthaltenen ObjectList aufzurufen, dann sollte es keine Probleme geben und schnell ist das auch noch

[freak4fun]

Zitat von angos:

01.03.2008
01.02.2008
01.01.2008

wird zu

01.02.2008
01.03.2008
01.01.2008

Wie bekomme ich diese Liste als TDateTime sortiert? Mit >, < geht es nicht.

[DeddyH]

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]

[freak4fun]

Bäume und Wald und so.

Delphi-Quellcode:

procedure TTerminKalender.Sort(AList: TStrings);

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

var
  i, j: Integer;
begin
  for i := 0 to FTerminListe.Count - 2 do
    for j := i + 1 to FTerminListe.Count - 1 do
      if CompareDate(TTermin(FTerminListe.Items[i]), TTermin(FTerminListe.Items[j])) = 1 then
        FTerminListe.Exchange(i, j);
end;

Danke für die Gedult und Mühe.