Delphi-PRAXiS
Seite 2 von 2     12   

Delphi-PRAXiS (https://www.delphipraxis.net/forum.php)
-   Sonstige Fragen zu Delphi (https://www.delphipraxis.net/19-sonstige-fragen-zu-delphi/)
-   -   Delphi Nach erreichen der Zeit --> löschen ? (https://www.delphipraxis.net/27709-nach-erreichen-der-zeit-loeschen.html)

Markus 14. Aug 2004 12:45

Re: Nach erreichen der Zeit --> löschen ?
 
Wenn du auf Nummer sicher gehen willst, dann überprüfe es mit formatdatetime():

Delphi-Quellcode:
if formatdatetime('hh:mm',now)='13:06' then do
begin
   if fileexists('d:\aaa.txt') then deletefile('d:\aaa.txt');
end;

Vader 14. Aug 2004 19:41

Re: Nach erreichen der Zeit --> löschen ?
 
hallo,

danke für eure hilfe, hab das von markus getestet und es klappt wunderbar
jetzt hätte ich noche eine frage wie würde der code ausschauen wenn
ich jetzt noch ein datum auch noch möchte, also zb: 20.08.2004 12:10

mfg vader

MrKnogge 14. Aug 2004 19:49

Re: Nach erreichen der Zeit --> löschen ?
 
einfach noch dein Datum mit DateToStr(Now) vergleichen.

Vader 14. Aug 2004 20:27

Re: Nach erreichen der Zeit --> löschen ?
 
hallo,

kannst du mir einen code posten, hab keine ahnung wie ich diese beiden abfragen datum und zeit zusammen hängen soll ?? :oops:

mfg vader

nailor 14. Aug 2004 20:29

Re: Nach erreichen der Zeit --> löschen ?
 
was ist bei der >= methode, wenn man 1ms vor mitternacht löschen will?

MrKnogge 14. Aug 2004 20:46

Re: Nach erreichen der Zeit --> löschen ?
 
Mit AND

Delphi-Quellcode:
if (formatdatetime('hh:mm',now)='13:06') and (DateToStr(Now) = '14.08.2004') then do
begin
   if fileexists('d:\aaa.txt') then deletefile('d:\aaa.txt');
end;

Vader 14. Aug 2004 22:40

Re: Nach erreichen der Zeit --> löschen ?
 
hallo,

herzlichen dank :P

mfg vader

Markus 15. Aug 2004 08:09

Re: Nach erreichen der Zeit --> löschen ?
 
Geht auch mit formatdatetime(). Schau dir dazu mal die Delphi-Hilfe der Funktion an. Die Funktion hat mehrere Parameter...


Alle Zeitangaben in WEZ +1. Es ist jetzt 22:53 Uhr.
Seite 2 von 2     12   

Powered by vBulletin® Copyright ©2000 - 2025, Jelsoft Enterprises Ltd.
LinkBacks Enabled by vBSEO © 2011, Crawlability, Inc.
Delphi-PRAXiS (c) 2002 - 2023 by Daniel R. Wolf, 2024-2025 by Thomas Breitkreuz