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". Nun haben wir einiges geändert und jetzt erscheint die Message immer, auch wenn das Datum nicht überschritten ist. Habt ihr vielleicht eine Idee?
Delphi-Quelltext
1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
| 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; |
![Antworten [gesperrt]](./graphics/navbar/reply.png)
