Zitat:
Die fehlen immer noch jegliche Delphi-Grundlagen.
Nimm dir eine Variable, die den Minimum-Wert repräsentiert und initialisiere diese mit dem Startwert deiner Liste. Gehe alle Werte in einer Schleife durch, vergleiche sie und weise der Variablen immer den aktuell geprüften Wert zu, sofern dieser kleiner ist, als der Variablenwert.
Fertigen Code bekommst du von mir definitiv keinen.
Gruß
Ok...quäl dich nicht weiter 8) ich habe heute meinen sozialen Tag.
zu spät... noch eine Variante für die Code Libary
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;
Vorraussetzung ist, daß dein Datum als Item steht und nicht als Subitem.
PS: wird kein Eintrag in der Zukunft gefunden kriegst du das "heutige Datum zurück.