Nächstes Datum errechnen

[Larsi]

Ist das so richtig: ?

Delphi-Quellcode:

var
  i: Integer;
  g: integer;
  k: integer;
begin
for i := 0 to Listview1.Items.count - 1 do begin
if StrToDate(DateToStr(Now)) < StrToDate(Listview1.Items.Item[i].SubItems.Strings[0]) then begin
g := i;
if k < Listview1.items.count - g then
k := Listview1.items.count - g;
end;