Ist der Ansatz besser?
Delphi-Quellcode:
var
i: Integer;
g: integer;
begin
g := 1;
for i := 0 to Listview1.Items.count - 1 do begin
if StrToDate(DateToStr(Now)) < StrToDate(Listview1.Items.Item[i].SubItems.Strings[0]) then begin
if StrToDate(Listview1.Items.Item[i].SubItems.Strings[0]) < StrToDate(Listview1.Items.Item[g].SubItems.Strings[0]) then
g := i;
end;
end;
ShowMessage(Inttostr(g));
end;
Also in einem kleinem Test von mir klappts aber vielleicht ist das auch nur Zufall.