Delphi-Quellcode:
procedure TForm1.FormCreate(Sender: TObject);
var i : integer;
alt : TDateTime;
Ueberschritten : Boolean;
if FileExists ('Bücherliste3.txt') // siehe oben
then ListBox3.Items.LoadFromFile('Bücherliste3.txt'); // siehe oben
for i := 0 to ListBox3.Items.Count-1 do begin // überprüfen der ListBox von Anfang bis Ende
alt := StrToDateTimeDef(ListBox3.Items.Strings[i], 0); // altes Datum egibt sich aus dem Datum der ListBox3
Ueberschritten:=alt<Now // wenn altes Datum kleiner als aktuelles, dann ergibt sich Überschritten aus true
end;
if Ueberschritten Then ShowMessage('Ausleihdatum überschritten'); // wenn sich Überschritten aus true ergibt, dann wird Message ausgegeben
end;
Wir haben deine Ideen mit eingefügt, jedoch wird die message trotzdem ausgegeben, auch wenn das Datum nicht überschritten ist.
Die letzte Zeile konnten wir nicht übernehemen, da dann ein Fehler entstehet und das Programm abstürzt.
MfG