gut dann werd ich das jetzt mal ein bisschen ausführlicher erklären
also wenn man auf einen Button klickt dann wird in die ListBox3 das Rückgabedatum eingefügt:
Delphi-Quellcode:
procedure TForm1.Button1Click(Sender: TObject);
begin
ListBox3.Items.Add(FormatDateTime('ddd d. mmm. yyyy', Now+28
end;
wenn das Programm beendet wird, dann wird der Inhalt der ListBox in einer Textdatei eingefügt also da steht dann einfach nur das Datum drin (ich weiß aber nicht in welchem Format)
Delphi-Quellcode:
procedure TForm1.Button3Click(Sender: TObject);
begin
close;
ListBox3.Items.SaveToFile('Bücherliste3.txt');
end;
und wenn dann das Programm gespeichert wird, wird der Inhalt der Liste wieder geladen und das Programm soll jede Zeile durchgehen und überprüfen, welches Datum davon überschritten ist und dann soll die Message 'Ausleihdatum überschritten' ausgegeben werden (aber nur einmal nicht 10 mal wenn 10 Daten überschritten sind) und dann sollten die überschrittenen möglichst noch rot unterlegt werden, aber da wissen wir auch nicht wie das geht.
Delphi-Quellcode:
procedure TForm1.FormCreate(Sender: TObject);
var i : integer;
alt : TDateTime;
Ueberschritten : Boolean;
begin
if FileExists ('Bücherliste3.txt')
then ListBox3.Items.LoadFromFile('Bücherliste3.txt');
for i := 0 to ListBox3.Items.Count-1 do begin
alt := StrToDateTimeDef(ListBox3.Items.Strings[i], 0);
Ueberschritten:=alt<Now
end;
if Ueberschritten Then ShowMessage('Ausleihdatum überschritten');
end;
Wir hoffen damit könnt ihr jetzt was anfangen, weil mehr wissen wir auch nich dazu also welche formate das sind und so. Sind da leider nicht so bewandert.