Nächstes Datum errechnen

[Larsi]

Hi,

ich habe eine List mit Daten von Terminen in meinem Programm. Diese Daten sind in einer Listview mit der vsreport Ansicht. Die Reihenfolge der Termine ist unabhänhig wann sie stattfinden. Wie kann ich jetzt den Eintrag ermitteln, der als nächstes zutrifft. Also wenn ich in einer Listview folgende Daten habe:

Zitat:

19.03
15.06
1.1
23.3

Und heute der 30.12 ist, wie kann ich es dann erreichen, dass der 1.1 makiert wird, weil der als nächstes dran ist. Natürlich können die Daten variieren. :)


MFG Lars Wiltfang

[Klaus01]

.. wandelt doch die Daten nach TDate um und addiere eins dazu.
das war wohl etwas daneben. erst lesen dann schreiben.

Grüße
Klaus

[DP-Maintenance]

Dieses Thema wurde von "Sharky" von "Windows API / MS.NET Framework API" nach "Sonstige Fragen zu Delphi" verschoben.
Und was hat das mit API zu tun?

[DeddyH]

Dazu fällt mir nur ein: sortieren und ggf. in einer Schleife vergleichenderweise durchlaufen.

[Larsi]

Wie soll das mit der Schleife gehen. Man muss ja alle Einträge mit jedem andere Eintrag jeweils vergleichen oder? Dauert das nicht recht lange? Wenn man 100 Einträge hat wären dass dann 10000 Durchläufe? Kannst du mir da mal einen Ansatz geben wie ich das mit der Schleife angehe?

[DeddyH]

Ich sag doch: erst sortieren (ggf. in einer 2. Liste im Speicher, dann musst Du Dir den ItemIndex dazu aber auch merken). Dann fängst Du beim ersten Eintrag an und schaust, ob es größer als heute ist. Falls nicht, nächster Eintrag usw. Ansonsten Schleife verlassen.

[Larsi]

Und wie sortiert man in einer Listview?

[Klaus01]

Zitat:

Zitat von Larsi

Und wie sortiert man in einer Listview?

Delphi-Quellcode:

ListView.Items.sort := true;

????

[Larsi]

Das Datum steht aber leider erstens nicht in der Caption und zweitens sind auch manchmal Geburtstage dabei sodass ein Jahr wie 1980 die Sortierung zerstören würde.

[Sharky]

Zitat:

Zitat von Larsi

Und wie sortiert man in einer Listview?

Eine Antwort auf diese Frage findest Du hier. Alternativ kann man auch versuchen nachzudenken.