Nächstes Datum errechnen

[Matze]

Larsi, du wolltest nur wissen, ob deine Lösung besser ist. Als Antwort kommt genaugenommen nur ein "Ja" oder "Nein" in Frage. Mache Sharky also keine Vorwürfe.

Ich habe deinen Code kommentiert und dir deinen Fehler genannt. Theoretisch sollte es dann passen, auch wenn der ständige Zugriff auf die VCL nicht empfehlenswert ist, aber es müsste dann funktionieren.

Edit: Es gibt natürlich schon schönere Lösungen. Nicht dass es so aussieht, als halte ich das für eine Musterlösung. :mrgreen: Ich wollte nur, dass er mal ein Erfolgserlebnis hat und vielleicht merkt, dass er zukünftig selbst mit etwas mehr Überlegen hinter eine mögliche Lösung kommen kann.

[Larsi]

Wenn der erste Code NICHT geht aber der schon, dann würde ich schon sagen, dass der Code besser ist.

[DeddyH]

Geht er denn auch mit verschiedenen Jahren?

[Larsi]

Es ist auf jeden Fall ne Verbesserung :lol:

[haentschman]

Ich habe auch lange überlegt...

kommentierter Code von Larsi..

Delphi-Quellcode:

var
  i: Integer;
  g: integer;
begin
  g := 1;  // was das soll weiß nur Larsi, eine 0 könnte ich noch verstehen

  // er geht in einer Schleife alle Einträge durch ...
  for i := 0 to Listview1.Items.count - 1 do
  begin
    // ... prüft nach dem Konvertierungs-Gewurschtel von "Now" ob die Einträge in der Zukunft liegen ...
    if StrToDate(DateToStr(Now)) < StrToDate(Listview1.Items.Item[i].SubItems.Strings[0]) then
    begin
      // ... und dann, ob der Eintrag, der in der Schleife überprüft wird,
      // kleiner ist als der Index des Minimum-Eintrags (Index g) ...
      if StrToDate(Listview1.Items.Item[i].SubItems.Strings[0]) < StrToDate(Listview1.Items.Item[g].SubItems.Strings[0]) then

        // ... und setzt den neuen Min-Index falls der Listeneintrag kleiner ist
        g := i;
    end;
  end;

  ShowMessage(Inttostr(g));
end;

das g soll im Prinzip nix anderes sein, als mit dem ersten Wert der Liste beim ersten Durchlauf zu vergleichen. Wenn aber der erste Wert der Liste schon kleiner ist als Now funktioniert die ganze Schose nicht mehr. :roll:

[Larsi]

Also bei mir geht es auch wenn der erste Eintrag schon kleiner ist als now. Kann ich nicht ganz nachvollziehen.

[Matze]

Zitat:

Zitat von haentschman

das g soll im Prinzip nix anderes sein, als mit dem ersten Wert der Liste zu vergleichen.

Jain, wenn er bei 0 anfangan würde, wäre dies der Fall. Zugleich repräsentiert das g den Index mit dem kleinsten Datum.

Zitat:

Zitat von haentschman

Wenn aber der erste Wert der Liste schon kleiner ist als Now funktioniert die ganze Schose nicht mehr. :roll:

Richtig, dann ginge das ganze nicht.

Ich weiß ja nicht, was Larsi will, aber er scheint zufrieden zu sein.

Edit: Wobei, er fragt ja explizit ab, ob der Eintrag in der Zukunft liegt und prüft nur dann weiter. Das möchte er vermutlich.

[Meflin]

Zitat:

Zitat von Larsi

Kann ich nicht ganz nachvollziehen.

Soso, du kannst also deinen eigenen Code nicht mehr nachvollziehen :gruebel:

Na dann würd ich ihn nochmal von vorne schreiben :lol:

[DeddyH]

Jetzt hätte ich beinahe meine (auch nicht optimale) Lösung gepostet, aber damit warte ich lieber noch :lol:

[Larsi]

Wenn ich den ersten Wert beispielsweise

01.01.1950 nenne, dann sollte es doch nicht gehen oder? Tuts aber.