Forum: GUI-Design mit VCL / FireMonkey / Common Controls
by DeddyH,
29. Feb 2008
Das steht hier: http://www.delphipraxis.net/internal_redirect.php?p=852472#852472
Forum: GUI-Design mit VCL / FireMonkey / Common Controls
by DeddyH,
29. Feb 2008
Das Format der Einträge wäre auch noch gut zu wissen. Sollte es ungültig sein, käme bei StrToDateTimeDef(Eintrag,0) nämlich 0 heraus :mrgreen: .
Forum: GUI-Design mit VCL / FireMonkey / Common Controls
by DeddyH,
29. Feb 2008
Stell doch mal die Textdatei hier online.
Forum: GUI-Design mit VCL / FireMonkey / Common Controls
by DeddyH,
29. Feb 2008
Steht in der Datei das Ausleihdatum? Dann wird es wahrscheinlich immer in der Vergangenheit liegen, die Bedingung trifft also immer zu. Ansonsten würde ich das auch etwas anders schreiben.procedure TForm1.FormCreate(Sender: TObject);
var lIx : integer;
lInt : TDateTime;
Ueberschritten : Boolean;
begin
if FileExists ('Bücherliste3.txt')
then...