Ich bin noch am verzweifeln...heute morgen habe mein Programm aufgerufen und was sehe ich da...es wird wieder falsch dargestellt. Ich kann´s mir nicht erklären. Vor Ratlosigkeit habe ich die ganze Procedure nochmal gelöscht und neu angefangen. Bisher habe ich folgendes:
Code:
var I : Integer;
NeustesDatum : String;
...
for I := 0 to SmartListView1.Items.Count-1 do
begin
if (StrToDate(SmartListView1.Items[I].SubItems[1])) = Date then
begin
NeustesDatum := SmartListView1.Items[I].SubItems[1];
// Nach Zeit suchen
Edit1.Text := NeustesDatum;
Exit;
end
else
...
Das funktioniert einwandfrei, wenn der Termin das heutige Datum hat, wird das als neuster Termin angezeigt (und die Procedure wird beendet). Aber nun möchte ich herausfinden, welcher Termin der neuste ist, wenn er nicht das heutige Datum besitzt. Wäre nett, wenn mir jemand helfen könnte.
Danke schonmal!
Gruß Yheeky