Rückgabedatum in Delphi 7

[Luckie]

Du hast uns immer noch nicht die alles entscheidenden Fragen beantwortet. Lies doch bitte mal unsere Beiträge. Welches Format haben die Daten in der Datei und was für ein datum ist es? Das Rückgabedatum oder das Ausleihdatum.

Desweitern ist dein Code etwas verkorkst:

Delphi-Quellcode:

procedure TForm1.FormCreate(Sender: TObject);
var i   : integer;
    alt : TDateTime;
    Ueberschritten : Boolean;
begin
  if FileExists ('Bücherliste3.txt')                                      // Bitte mit kompletter Pfadangabe. Dass dein Programm die Datei findet ist purer Zufall
    then ListBox3.Items.LoadFromFile('Bücherliste3.txt');                 // Kommentar siehe vorherige Zeile
  for i := 0 to ListBox3.Items.Count-1 do begin                           
    alt := StrToDateTimeDef(ListBox3.Items.Strings[i], 0);                // Guck doch einfach mal im Debugger, was nach dieser Zeile in [i]alt[/i] drin steht oder lass es dir ausgeben
    Ueberschritten:=alt<Now                                               // Der Inhalt der Variable [i]Ueberschritten[/i] wird immer wieder überschrieben, so dass du letztendlich nur den letzten Eintrag in den folgenden Zeilen überprüfst
  end;
  if Ueberschritten then
    ShowMessage('Ausleihdatum überschritten'); 
end;

Wie wäre es hier mit:

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);                
    if alt<Now then ShowMessage('Ausleihdatum überschritten'); 
  end;
end;

[NormanNG]

Hi,

das Format, mit dem das Rückgabedatum in die Liste (und in der Folge auch in die Datei) geschrieben wird,
ist mit 'ddd d. mm. yyyy' definitert. Ein solchen String kann man aber nicht mehr mit StrToDateDef zurückwandeln,
weshalb immer der Defaultwert (0) geliefert wird...

Versuchs doch einfach mal mit dem Format 'dd.mm.yyyy' - das wir beim Einlesen richtig zurückgewandelt.

[coocky]

Zitat:

Zitat von Luckie

Du hast uns immer noch nicht die alles entscheidenden Fragen beantwortet. Lies doch bitte mal unsere Beiträge. Welches Format haben die Daten in der Datei und was für ein datum ist es? Das Rückgabedatum oder das Ausleihdatum

Zitat:

Zitat von coocky

also wenn man auf einen Button klickt dann wird in die ListBox3 das Rückgabedatum eingefügt

Zitat:

Zitat von coocky

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. :-D

[NormanNG]

Hi,

Zitat:

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.

vergiss es, du hast soweit alles vorher gesagt. Versuchs mit dem anderen Datum-Format-String...

[coocky]

ok mach ich

[Luckie]

Zitat:

Zitat von NormanNG

das Format, mit dem das Rückgabedatum in die Liste (und in der Folge auch in die Datei) geschrieben wird,
ist mit 'ddd d. mm. yyyy' definitert.

Woher weißt du das?

Zitat:

weil mehr wissen wir auch nich dazu also welche formate das sind und so.

Ihr schreibt doch selber in die datei rein. Da müst ihr doch wissen was ihr da wie reinschreibt? :roll:

[DeddyH]

Zitat:

Zitat von Luckie

Zitat:

Zitat von NormanNG

das Format, mit dem das Rückgabedatum in die Liste (und in der Folge auch in die Datei) geschrieben wird, ist mit 'ddd d. mm. yyyy' definitert.

Woher weißt du das?

Das steht hier: http://www.delphipraxis.net/internal...=852472#852472