Zitat:
Jain, wenn er bei 0 anfangan würde, wäre dies der Fall. Zugleich repräsentiert das g den Index mit dem kleinsten Datum.
ja klar doch...geht sich bei 0 los.
Larsi: schaue dir noch mal meinen Code an und versuche zu verstehen was passiert. Wenn du möchtest kommentiere ich ihn noch mal.
geprüft und für gut befunden
Delphi-Quellcode:
function NachstesDatum : TDate;
var
MinDate: TDate;
I: integer;
begin
MinDate:= Now;
for I := 0 to ListView1.Items.Count - 1 do
begin
if StrToDate(Listview1.Items.Item[i].Caption) > Now then
begin
if MinDate = Now then
begin
MinDate:= StrToDate(Listview1.Items.Item[i].Caption);
end
else
begin
if (StrToDate(Listview1.Items.Item[i].Caption) < MinDate) then
begin
MinDate:= StrToDate(Listview1.Items.Item[i].Caption);
end;
end;
end;
Result:= MinDate;
end;
end;