Hi,
wir haben ein Bibliotheksprogramm geschrieben, in dem ausgeliehene Bücher gespeichert werden. Wenn das ausgeliehene Datum überschritten ist, dann sollte normalerweise eine message kommen "Ausleihdatum überschritten".
Folgenden Quelltext haben wir bis jetzt:
Delphi-Quellcode:
procedure TForm1.FormCreate(Sender: TObject);
var lIx : integer;
lInt : TDateTime;
Ueberschritten : Boolean;
begin
if FileExists ('Bücherliste3.txt')
then ListBox3.Items.LoadFromFile('Bücherliste3.txt');
for lIx := 0 to ListBox3.Items.Count-1 do begin
lInt := StrToDateTimeDef(ListBox3.Items.Strings[lIx], 0);
if lInt<Now then Ueberschritten:=True;
end;
if Ueberschritten=True Then ShowMessage('Ausleihdatum überschritten');
end;
jetzt kommt aber immer eine message, egal ob überschritten oder nicht.
Bitte helft uns.
MfG